Re^2: Golf: Count unique words

73 (70 + 3 for the switches). The \b's are pretty much unnecessary and using $& means you don't need parens.

#!/usr/bin/perl -nl
END{print map("$_ ($w{$_})\n",sort keys%w),$t}s/\w+/$w{$&}++;$t++/eg;
[download]

Comment on Re^2: Golf: Count unique words Select or Download Code

Replies are listed 'Best First'.
Re^3: Golf: Count unique words by eyepopslikeamosquito (Archbishop) on Dec 01, 2004 at 06:36 UTC
Sh?aving seven strokes: `#!/usr/bin/perl -lp ++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){` [download]	[reply] [d/l]