in reply to Re: Golf: Count unique words
in thread Golf: Count unique words

#!/usr/bin/perl -0nla $w{$_}++for@F;print"$_ ($w{$_}) "for keys%w;print~~@F small correction :)

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom