■ Perl で四捨五入の計算をする
Last Update: 2003--0-5- (Mon) 25: 1
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 printable version
