Re: Code requested for array intersection count

in reply to Code requested for array intersection count

Here's a forward-looking approach:

use Quantum::Superpositions;

my @arr1= qw (two two three five four six six six seven);
my @arr2= qw (one one three four bee seven eight six);

my @intersection = eigenstates(any(@arr1) eq any(@arr2));

print "There are ",scalar(@intersection)," common elements\n";
print "Values: @intersection\n";
[download]

It should work perfectly the first time! - toma

In Section Seekers of Perl Wisdom