プログラム言語 Perl についての覚え書き

■ Perl で四捨五入の計算をする

0.5 を足してから int します。負の値に対しては 0.5 引いてから int です。

$one = round(190.5); # $one = 191
$two = round(-30.2); # $two = -30

sub round {
   my $var = shift;
   my $a = ($var > 0) ? 0.5 : -0.5;
   return int($var + $a);
}

Posted by Kyosuke Takayama at 2003-05-25 (Sun) 18:41