Anadromes: Difference between revisions
Added Perl
m (→{{header|Phix}}: simplified, don't need rwords) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 114:
sennits <=> stinnes
</pre>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
my(%W,%A);
for my $w ( grep { /[A-z\-]{7,}/ } split "\n", do { local( @ARGV, $/ ) = ( 'words.txt' ); <> } ) {
my $r = join '', reverse split '', $w;
if ($W{$r}) { $A{$r} = sprintf "%10s ↔ %s\n", $r, $w }
else { $W{$w} = $w }
}
print $A{$_} for sort keys %A;</lang>
{{out}}
<pre> amaroid ↔ diorama
degener ↔ reneged
deifier ↔ reified
deliver ↔ reviled
dessert ↔ tressed
desserts ↔ stressed
deviler ↔ relived
dioramas ↔ samaroid
gateman ↔ nametag
leveler ↔ relevel
pat-pat ↔ tap-tap
redrawer ↔ rewarder
reknits ↔ stinker
relever ↔ reveler
reliver ↔ reviler
revotes ↔ setover
sallets ↔ stellas</pre>
=={{header|Phix}}==
| |||