Rosetta Code

Phrase reversals: Difference between revisions

Page Discussion

Phrase reversals (view source)

Revision as of 10:59, 21 February 2022

118 bytes removed ,  2 years ago
Emacs Lisp: Fix formatting, use with-output-to-temp-buffer
(Added solution for Action!)
(Emacs Lisp: Fix formatting, use with-output-to-temp-buffer)
Line 887:
 
=={{header|Emacs Lisp}}==
<lang Emacs Lisp>(defun reverse-sep (words sep)
(defunmapconcat 'identity (reverse-sep (split-string words sep)) sep))
(mapconcat 'identity (reverse (split-string words sep) ) sep) )
 
(defun reverse-chars (line)
(reverse-sep line "") )
 
(defun reverse-words (line)
(reverse-sep line " ") )
 
(setqdefvar line "rosetta code phrase reversal")▼
(progn
 
▲ (setq line "rosetta code phrase reversal")
(with-output-to-temp-buffer "*reversals*"
(insert (format "%s\n"princ (reverse-chars line) ))
(terpri)
(princ (mapconcat 'identity (mapcar #'reverse-chars ▼
(insert (format "%s\n"
(split-string line) ) " ") ))▼
▲ (mapconcat 'identity (mapcar #'reverse-chars
(terpri)
▲ (split-string line) ) " ") ))
(insert (format "%s\n"princ (reverse-words line) )))▼
(terpri))</lang>
▲ (insert (format "%s\n" (reverse-words line) )))
 
</lang>
{{out}}
<b>Output:</b>
 
<pre>
lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
 
=={{header|Factor}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251493"