Select Code to Download

        my $n = unpack '%32b*', ( $set[ $x ] ^ $set[ $y ] );

        my $n = unpack '%32b*', pack 'N`', ( $set[ $x ] ^ $set[ $y ] )
+;