Help for this page

Select Code to Download


  1. or download this
    use warnings; use strict; use feature 'say';
use MCE::Util;
...
}, 1, 1e6;

say "@$_" for reverse +(sort { $b->[1] <=> $a->[1] } @sizes)[0..19];
  2. or download this
    $ time perl ch-map.pl
922525 445
...
real    0m4.843s
user    0m47.423s
sys    0m0.265s
  3. or download this
    time perl ch-flow.pl

...
real    0m4.661s
user    0m47.057s
sys    0m0.255s