Isograms and heterograms: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: clip file path) |
||
Line 322: | Line 322: | ||
use List::Util 'uniq'; |
use List::Util 'uniq'; |
||
my @words = map { lc } path(' |
my @words = map { lc } path('unixdict.txt')->slurp =~ /^[A-z]{2,}$/gm; |
||
my(@heterogram, %isogram); |
my(@heterogram, %isogram); |