Phrase reversals: Difference between revisions
Content added Content deleted
Line 499: | Line 499: | ||
3. word-order reversed: reversal phrase code rosetta |
3. word-order reversed: reversal phrase code rosetta |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>phrase = "Rosetta Code Phrase Reversal"; |
|||
reverseWords[phrase_String] := |
|||
StringJoin @@ Riffle[Reverse@StringSplit@phrase, " "] |
|||
reverseLetters[phrase_String] := |
|||
StringJoin @@ |
|||
Riffle[Map[StringJoin @@ Reverse[Characters@#] &, |
|||
StringSplit@phrase], " "] |
|||
{phrase, reverseWords@phrase, reverseLetters@phrase, |
|||
reverseWords@reverseLetters@phrase} // TableForm</lang> |
|||
{{out}}<pre>Rosetta Code Phrase Reversal |
|||
Reversal Phrase Code Rosetta |
|||
attesoR edoC esarhP lasreveR |
|||
lasreveR esarhP edoC attesoR</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
<lang perl>my $s = "rosetta code phrase reversal"; |
<lang perl>my $s = "rosetta code phrase reversal"; |