Perl Christmas Quiz

[Peter Corlett]

On Fri, Dec 12, 2008 at 12:29:24PM -0500, Uri Guttman wrote:
[...]
> return keys%{{map{$_,1}grep(${{map{$_=>1}@{$_[0]}}}{$_},@{$_[1]})}} ;

> it may not win in golf but it is a single expression/statement with no
> declared variables so that should earn some points. i wouldn't call
> multistatement code a true one liner. :)

You can save an easy eight strokes by dropping the "return ", of course.

I particularly admire some of the evil deviousness I've seen in this round
of golf. The one using a regex and chop is my favourite.