Help for this page

Select Code to Download


  1. or download this
    C:\test>817827
Took 1.622
...
Odd numbers in list: 4000
Pairs found: 99135
  2. or download this
    #! perl -slw
use strict;
...
print 'Pairs found: ', scalar keys %hash;

#<>; pp \%hash;
  3. or download this
    #! perl -slw
use strict;
...
print 'Pairs found: ', scalar keys %hash;

<>; pp \%hash;