in reply to Re^2: Golf: Count unique words
in thread Golf: Count unique words
Sh?aving seven strokes:
#!/usr/bin/perl -lp ++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){
|
---|
In Section
Seekers of Perl Wisdom
in reply to Re^2: Golf: Count unique words
in thread Golf: Count unique words
Sh?aving seven strokes:
#!/usr/bin/perl -lp ++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){
|
---|