Help for this page

Select Code to Download


  1. or download this
    use Sort::Key::Top 'natpos';

...

print "median $r1, $r2\n";
  2. or download this
    $ perl /tmp/median.pl 
     s/iter  sort   skt
...
skt    1.25 1542%    --
mediam 0.499785519518444, 0.499785519518444