in reply to Code requested for array intersection count
Here's a forward-looking approach:
It should work perfectly the first time! - tomause 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";
In Section
Seekers of Perl Wisdom