in reply to Re: Perl Golf-- testing array intersectionin thread Perl Golf-- testing array intersection
Nice! I bid 38.
sub match { # 1 2 3 # 12345678901234567890123456789012345678 $_++for@c{@x},@d{@y};grep$d{$_},keys%c } [download]
Makeshifts last the longest.