RosettaCodeData/Task/Reverse-a-string/Symsyn/reverse-a-string-2.symsyn

12 lines
106 B
Plaintext

c : 'abcdefghijklmnopqrstuvwxyz'
c []
$s
#c j
if j > 0
- j
+ c.j $s 1
goif
endif
$s []