Help for this page

Select Code to Download

Select or download this

111011001010011110100010100001
111010000010010110000010000001
...
000101111101001001111101111110
111011001010111110100010100001
000100010100000000010001010000

Select or download this

my @strings = qw/111011001010011110100010100001
  111010000010010110000010000001
...
        print join( "\t", $i, $j, $c00, $c01, $c10, $c11 ), "\n";
    }
}