mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Reverse-a-string/DBL/reverse-a-string.dbl

8 lines
108 B
Plaintext
Raw Permalink Blame History

K=
STR_OUT=
FOR J=%TRIM(STR_IN) STEP -1 UNTIL 1
DO BEGIN
INCR K
STR_OUT(K:1)=STR_IN(J:1)
END
Reference in New Issue View Git Blame Copy Permalink