Textonyms: Difference between revisions

Content deleted Content added
m →‎{{header|Perl 6}}: remove unneeded case insensitivity
Line 301:
<lang perl6>my $src = 'unixdict.txt';
 
my @words = slurp($src).lc.lines.grep(/ ^ <[a..z]alpha>+ $ /).unique;
 
my @dials = @words.classify: {