Select Code to Download

rperl -e 'use integer;$i=((2**17)**3);$m=2**53;print "$i\n$m\n";'
2251799813685248
9007199254740992

perl -e '$n = (3*(10**2)) + (0*(10**1)) + (9*(10**0)); print "$n\n";'

perl -e '$B = 10; $n = (3*($B**2)) + (0*($B**1)) + (9*($B**0)); print 
+"$n\n";'

perl -e '$B = 2**16; $n = ($R*($B**2)) + ($G*($B**1)) + ($B*($B**0)); 
+print "$n\n";'

$hash{$key}++;             ## $key is 48 bit RGB as a single integer
                           ## The value $hash{$key} is sum of the time
+s found