RosettaCodeData/Task/Reverse-words-in-a-string/EchoLisp/reverse-words-in-a-string.l
2023-07-01 13:44:08 -04:00

16 lines
375 B
Common Lisp

(define S #<<
---------- Ice and Fire ------------
fire, in end will world the say Some
ice. in say Some
desire of tasted I've what From
fire. favor who those with hold I
... elided paragraph last ...
Frost Robert -----------------------
>>#)
(for-each writeln
(for/list ((line (string-split S "\n")))
(string-join (reverse (string-split line " ")) " ")))