develooper 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About