Select Code to Download

#!/usr/bin/perl

use Benchmark 'cmpthese';
...
    for (@n) { my $x = int($_ + .5 * ($_ < 0 ? -1 : 1)) }
  },
});

Benchmark:  running
  japhy_int, japhy_round, japhy_inplace,
  rob_int, rob_round
...
japhy_inplace 11471/s      484%        250%            --     -3%     
+ -44%
rob_int       11797/s      501%        260%            3%     --      
+ -42%
japhy_int     20326/s      935%        521%           77%     72%     
+   --