Re^2: Perl Golf-- testing array intersection

My interpretation of the spec allowed that behavior but ok, here's one at 45 chars that follows the duplicate rule:

sub match {
# 123456789012345678901234567890123456789012345
  ++$c{$_}for@x;++$d{$_}for@y;grep$d{$_},keys%c
}
[download]

Comment on Re^2: Perl Golf-- testing array intersection Download Code

Replies are listed 'Best First'.
Re^3: Perl Golf-- testing array intersection by Aristotle (Chancellor) on Jan 30, 2006 at 22:43 UTC
Nice! I bid 38. `sub match { # 1 2 3 # 12345678901234567890123456789012345678 $_++for@c{@x},@d{@y};grep$d{$_},keys%c }` [download] Makeshifts last the longest.	[reply] [d/l]