#!/usr/bin/perl

use Benchmark 'cmpthese';
use strict;

my @n = (1.24, 5.43, -98.54, -73.667, 0.67, 2.34, 76.89, -999.99, 34.52);

sub round {
  my ($n, $p) = @_;
  $p ||= 0;
  int($n * 10**$p + .5 * ($n < 0 ? -1 : 1)) / 10**$p;
}

cmpthese(-5, {
  rob_int => sub {
    for (@n) { my $x = sprintf "%d", $_ }
  },
  rob_round => sub {
    for (@n) { my $x = sprintf "%.0f", $_ }
  },
  japhy_int => sub {
    for (@n) { my $x = int $_ }
  },
  japhy_round => sub {
    for (@n) { my $x = round($_,0) }
  },
  japhy_inplace => sub {
    for (@n) { my $x = int($_ + .5 * ($_ < 0 ? -1 : 1)) }
  },
});