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