6 lines
73 B
Text
6 lines
73 B
Text
|
:Str1
|
||
|
|
:For(I,1,length(Ans)-1
|
||
|
|
:sub(Ans,2I,1)+Ans
|
||
|
|
:End
|
||
|
|
:sub(Ans,1,I→Str1
|