Jump to content

Textonyms: Difference between revisions

Textonyms (view source)

Revision as of 01:12, 12 February 2015

7 bytes removed ,  9 years ago
m
→‎{{header|Perl 6}}: remove unneeded case insensitivity
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: {
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/254452"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information