RosettaCodeData/Task/Reverse-words-in-a-string/Clojure/reverse-words-in-a-string.clj

15 lines
385 B
Clojure
Raw Permalink Normal View History

2015-02-20 09:02:09 -05:00
(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 -----------------------")
2016-12-05 22:15:40 +01:00
(dorun
2015-02-20 09:02:09 -05:00
(map println (map #(apply str (interpose " " (reverse (re-seq #"[^\s]+" %)))) (clojure.string/split poem #"\n"))))