Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

...

print "\$bits1:[$bits1], \$bits2:[$bits2], \$bitsResult:[$bitsResult]"
+;
print "Result: ", join(", ", @arrayResult), "\n";

Select or download this

$bits1:[1407], $bits2:[855], $bitsResult:[1919]
Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1