Anadromes: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: a little simpler) |
||
Line 121: | Line 121: | ||
my(%W,%A); |
my(%W,%A); |
||
for my $w ( grep { /[A-z\-]{7,}/ } split "\n", do { local( @ARGV, $/ ) = ( 'words.txt' ); <> } ) { |
for my $w ( grep { /[A-z\-]{7,}/ } split "\n", do { local( @ARGV, $/ ) = ( 'words.txt' ); <> } ) { |
||
my $r = |
my $r = reverse $w; |
||
if ($W{$r}) { $A{$r} = sprintf "%10s ↔ %s\n", $r, $w } |
if ($W{$r}) { $A{$r} = sprintf "%10s ↔ %s\n", $r, $w } |
||
else { $W{$w} = $w } |
else { $W{$w} = $w } |