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

19 lines
164 B
Plaintext

| reverse string
c : 'abcdefghijklmnopqrstuvwxyz'
d : ' '
c []
i
#c j
- j
if i < j
c.i d 1
c.j c.i 1
d c.j
- j
+ i
goif
endif
c []