8 lines
137 B
Text
8 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
|