Anonymous user
Anagrams/Deranged anagrams: Difference between revisions
→{{header|Perl}}
(→{{header|Pascal}}: using extra Stringlist for sorted by character words) |
|||
Line 2,677:
<pre>
length 10: excitation => intoxicate
</pre>
===Alternate===
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Anagrams/Deranged_anagrams
use warnings;
local (@ARGV, $/) = 'unixdict.txt';
my %anagrams;
for my $word ( sort { length $b <=> length $a } split ' ', <> )
{
my $key = join '', sort +split //, $word;
($_ ^ $word) =~ /\0/ or exit !print "$_ $word\n" for @{ $anagrams{$key} };
push @{ $anagrams{$key} }, $word;
}</lang>
{{out}}
<pre>
excitation intoxicate
</pre>
| |||