Phrase reversals: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
(Emacs Lisp: Fix formatting, use with-output-to-temp-buffer) |
||
Line 887: | Line 887: | ||
=={{header|Emacs Lisp}}== |
=={{header|Emacs Lisp}}== |
||
<lang |
<lang Lisp>(defun reverse-sep (words sep) |
||
( |
(mapconcat 'identity (reverse (split-string words sep)) sep)) |
||
(mapconcat 'identity (reverse (split-string words sep) ) sep) ) |
|||
(defun reverse-chars (line) |
(defun reverse-chars (line) |
||
(reverse-sep line "") |
(reverse-sep line "")) |
||
(defun reverse-words (line) |
(defun reverse-words (line) |
||
(reverse-sep line " ") |
(reverse-sep line " ")) |
||
⚫ | |||
(progn |
|||
⚫ | |||
(with-output-to-temp-buffer "*reversals*" |
|||
( |
(princ (reverse-chars line)) |
||
(terpri) |
|||
⚫ | |||
(insert (format "%s\n" |
|||
⚫ | |||
⚫ | |||
(terpri) |
|||
⚫ | |||
⚫ | |||
(terpri))</lang> |
|||
⚫ | |||
</lang> |
|||
{{out}} |
|||
<b>Output:</b> |
|||
<pre> |
|||
lasrever esarhp edoc attesor |
lasrever esarhp edoc attesor |
||
attesor edoc esarhp lasrever |
attesor edoc esarhp lasrever |
||
reversal phrase code rosetta |
reversal phrase code rosetta |
||
</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |