Anonymous user
Phrase reversals: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 1,161:
Words reversed: attesor edoc esarhp lasrever
Word order reversed: reversal phrase code rosetta</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>(let (S (chop "rosetta code phrase reversal") L (split S " "))
(prinl (reverse S))
(prinl (glue " " (mapcar reverse L)))
(prinl (glue " " (reverse L))) )</lang>
Output:
<pre>lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
=={{header|PL/I}}==
| |||