RosettaCodeData/Task/Reverse-a-string/TI-83-BASIC/reverse-a-string.basic

6 lines
73 B
Plaintext

:Str1
:For(I,1,length(Ans)-1
:sub(Ans,2I,1)+Ans
:End
:sub(Ans,1,I→Str1