Select Code to Download

$i=1; $H{ 2**52 + $i++ } = $_, $G{ pack "Q", 2**52 + $i++ } = $_ for "
+aaaa".."zzzz"; say total_size(\%H); say total_size(\%G)
__DATA__
63601240
59945432

perl -E '$a = 2**53+1; $b = 2**53+2; say "Hello" if $a != $b and $a eq
+ $b; say "End"'
Hello
End

perl -Mbignum -E '$a = 2**53+1; $b = 2**53+2; say "Hello" if $a != $b 
+and $a eq $b; say "End"'
End