Select Code to Download

C:\test>817827
Took 1.622
...
Odd numbers in list: 4000
Pairs found: 99135

#! perl -slw
use strict;
...
print 'Pairs found: ', scalar keys %hash;

#<>; pp \%hash;

#! perl -slw
use strict;
...
print 'Pairs found: ', scalar keys %hash;

<>; pp \%hash;