Re: Golf: Count unique words

Just throwing this one out there for fun and to show a different approach:

#!/usr/bin/perl -nla
INIT{undef$/};$w{$_}++for@F;print"$_ ($w{$_})"for keys%w;print"".@F
# 345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 234567
[download]

67 + 4 = 71 strokes

Comment on Re: Golf: Count unique words Download Code

Replies are listed 'Best First'.
Re^2: Golf: Count unique words by Anonymous Monk on Dec 07, 2004 at 13:10 UTC
#!/usr/bin/perl -0nla $w{$_}++for@F;print"$_ ($w{$_}) "for keys%w;print~~@F small correction :)	[reply]
Re^3: Golf: Count unique words by Anonymous Monk on Dec 07, 2004 at 13:13 UTC
#!/usr/bin/perl -0na $w{$_}++for@F;print"$_ ($w{$_}) "for keys%w;print~~@F there is literal \n at the end of second line	[reply]


Welcome to the Monastery
	PerlMonks