Select Code to Download

C:\test>perl -MO=Terse -E"@a=map{int rand 2}1..64;@b=map{int rand 2}1.
+.64; for my$a(@a){ for my $b(@b){ $a==$b and ++$count }}"
LISTOP (0x34e7c58) leave [1]
...
                                    OP (0x34ef0c8) unstack
                    OP (0x34eedd0) unstack
-e syntax OK

C:\test>perl -MO=Terse -E"$a=join'',map{int rand 2}1..64;@b=map{int ra
+nd 2}1..64; $count=($a&$b)=~tr[1][]"
LISTOP (0x3447bc0) leave [1]
...
            PADOP (0x3447550) gvsv  GV (0x33262d0) *count
-e syntax OK

C:\test>perl -MO=Terse -E"$a=int rand 2**64;$b=int rand 2**64; $count 
+= unpack '%32b*', $a & $b"
LISTOP (0x33e7460) leave [1]
...
            PADOP (0x33e7178) gvsv  GV (0x32ca5d0) *count
-e syntax OK