10 lines
240 B
Text
10 lines
240 B
Text
; reverse list
|
|
(= reverse (fn (lst)
|
|
(let res nil)
|
|
(while lst
|
|
(= res (cons (car lst) res))
|
|
(= lst (cdr lst)))
|
|
res))
|
|
|
|
; chop string to list, reverse list and pack it back to string
|
|
(print (pack (reverse (chop "Hello world!"))))
|