Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    0.254902: 111111111111111111111111111111111111111111111111100000000000
    +1001
    0.254902: 111111111111111111111111111111111111111111111111100000000100
    +0001
    Comparing 1 against 15000 sets, took: 0.069085 seconds
    
  2. or download this
    #! perl -slw
    use strict;
    ...
              111111111111111111010101010101011111111111111111111111111111
    +11111111111111111111
              110101010101010111111111111111111111111111111111111111111111
    +11111101010101010101
    Comparing 1 against 15000 sets, took: 0.069599 seconds