7 lines
137 B
Text
7 lines
137 B
Text
:"1"→Str1
|
|
:expr(Str1)+1→A
|
|
:{0,1}→L₁
|
|
:{0,A}→L₂
|
|
:LinReg(ax+b) Y₁
|
|
:Equ►String(Y₁,Str1)
|
|
:sub(Str1,1,length(Str1)-3)→Str1
|