in reply to Re: List processing performance
in thread List processing performance

Oh, is *that* what we're doing then. :) In which case replace your last line with this: 
    @words = sort grep !$seen{$_ = lc}++, @words

[download]
A couple characters shorter, plus it's faster because the sort is done after you've filtered out duplicates and common words.

Replies are listed 'Best First'.
(chromatic) RE: RE: Re: List processing performance
by chromatic (Archbishop) on Jul 11, 2000 at 23:32 UTC
    Golf, eh? @words = sort grep !$seen{+lc}++, @words; The + keeps lc from being interpreted as a hash key, and lc operates on $_ by default.

    Update: Of course, this works if your data set is all lowercase. Moral of the story, don't go for the birdie unless you're sure it's what you want.

[reply]
[d/l]
      Yes, but it doesn't work properly, because you're not actually changing $_. And if you don't change $_, then the words don't get lower-cased, and your sort is off (because it'll sort upper-case before lower-case).
[reply]

In Section Seekers of Perl Wisdom