RosettaCodeData/Task/Reverse-words-in-a-string/Clojure/reverse-words-in-a-string.clj
2016-12-05 22:15:40 +01:00

14 lines
385 B
Clojure

(def poem
"---------- 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 -----------------------")
(dorun
(map println (map #(apply str (interpose " " (reverse (re-seq #"[^\s]+" %)))) (clojure.string/split poem #"\n"))))