Help for this page

Select Code to Download


  1. or download this
    >perl -E "$h{$_} = $_ for 0 .. 5_000_000; say time - $^T; keys %h; say
+ time - $^T; $k = scalar each %h; say time - $^T; say $k"
10
...
10
176
4034296