Phrase reversals: Difference between revisions
added a solution for Factor
No edit summary |
(added a solution for Factor) |
||
Line 768:
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
=={{header|Factor}}==
<lang factor>
USE: splitting
: splitp ( str -- seq ) " " split ;
: printp ( seq -- ) " " join print ;
: reverse-string ( str -- ) reverse print ;
: reverse-words ( str -- ) splitp [ reverse ] map printp ;
: reverse-phrase ( str -- ) splitp reverse printp ;
"rosetta code phrase reversal" [ reverse-string ] [ reverse-words ] [ reverse-phrase ] tri
</lang>
{{out}}
<pre>
lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
|