masak · April 18, 2009 11:42
diff --git a/counting the words in November.pm b/counting the words in November.pm
 $ perl6 -e '
    my %h;
    for lines("lib/November.pm") -> $line {
        for $line.comb -> $word {
            ++%h{$word}
        }
    }
    say .value, "\t", .key for %h.sort({ $^b.value <=> $^a.value })[^10]'
 60	{
 48	=
 47	}
 40	my
 33	=>
 26	#
 18	);
 17	if
 16	method
 11	use
	$ perl6 -e '
	my %h;
	for lines("lib/November.pm") -> $line {
	for $line.comb -> $word {
	++%h{$word}
	}
	}
	say .value, "\t", .key for %h.sort({ $^b.value <=> $^a.value })[^10]'
	60 {
	48 =
	47 }
	40 my
	33 =>
	26 #
	18 );
	17 if
	16 method
	11 use