Phrase reversals: Difference between revisions
no edit summary
(Adds Clojure solution) |
No edit summary |
||
Line 379:
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
=={{header|Emacs Lisp}}==
<lang Emacs Lisp>
(defun reverse-sep (words sep)
(mapconcat 'identity (reverse (split-string words sep) ) sep) )
(defun reverse-chars (line)
(reverse-sep line "") )
(defun reverse-words (line)
(reverse-sep line " ") )
(progn
(setq line "rosetta code phrase reversal")
(insert (format "%s\n" (reverse-chars line) ))
(insert (format "%s\n"
(mapconcat 'identity (mapcar #'reverse-chars
(split-string line) ) " ") ))
(insert (format "%s\n" (reverse-words line) )))
</lang>
<pre>
lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
=={{header|Go}}==
| |||