Isograms and heterograms: Difference between revisions

Content added Content deleted
(Added Perl)
m (→‎{{header|Perl}}: clip file path)
Line 322: Line 322:
use List::Util 'uniq';
use List::Util 'uniq';


my @words = map { lc } path('ref/unixdict.txt')->slurp =~ /^[A-z]{2,}$/gm;
my @words = map { lc } path('unixdict.txt')->slurp =~ /^[A-z]{2,}$/gm;


my(@heterogram, %isogram);
my(@heterogram, %isogram);