Front page | perl.perl6.language |
Postings from February 2005
Reality check
Thread Next
From:
Juerd
Date:
February 4, 2005 13:39
Subject:
Reality check
Message ID:
20050204213930.GG14718@c4.convolution.nl
Does this make sense?
my @words = gather {
for =(open '/usr/share/dict/words' err die) {
.=chomp;
next if /<-[a-z]>/;
/$re/ and take { word => $_, score => %scores{ .letters }.sum };
}
} ==> sort { .<score> } is descending, { .<word>.length }, { .<word> };
Juerd
--
http://convolution.nl/maak_juerd_blij.html
http://convolution.nl/make_juerd_happy.html
http://convolution.nl/gajigu_juerd_n.html
Thread Next