RosettaCodeData/Task/Reverse-a-string/Ol/reverse-a-string.ol
2019-09-12 10:33:56 -07:00

6 lines
118 B
Text

(define (rev s)
(runes->string (reverse (string->runes s))))
; testing:
(print (rev "as⃝df̅"))
; ==> ̅fd⃝sa