Select Code to Download

use List::Util 'shuffle';

...
print "A = [@A]\nB = [@B]\n";
print "exact:   $exact\n";
print "inexact: $inexact\n";

A = [4 5 1 0]
B = [3 1 5 0]
exact:   1
inexact: 2