Anonymous user
Phrase reversals: Difference between revisions
Add Perl
(→{{header|Go}}: add alternative version (inconcise, showoff stuff, blah blah)) |
(Add Perl) |
||
Line 199:
Reversed words: attesor edoc esarhp lasrever
Reversed word order: reversal phrase code rosetta</pre>
=={{header|Perl}}==
<lang perl>my $s = "rosetta code phrase reversal";
my $rev_s = reverse($s);
my $rev_ew = join(" ", reverse split(/ /,reverse $s));
my $rev_wo = join(" ", reverse split(/ /,$s));
printf "0. %-20s: %s\n", "input", $s;
printf "1. %-20s: %s\n", "string reversed", $rev_s;
printf "2. %-20s: %s\n", "each word reversed", $rev_ew;
printf "3. %-20s: %s\n", "word-order reversed", $rev_wo;</lang>
{{out}}
<pre>
0. input : rosetta code phrase reversal
1. string reversed : lasrever esarhp edoc attesor
2. each word reversed : attesor edoc esarhp lasrever
3. word-order reversed : reversal phrase code rosetta
</pre>
=={{header|Python}}==
| |||