■ Perl で切り上げの計算をする
Last Update: 2003--0-5- (Mon) 24: 1
1 を足してから int します。負の値や整数に対しては、そのまま int です。
$one = ceil(19.1); # $one = 20 $two = ceil(-30.5); # $two = 30 $three = ceil(5); # $three = 5
sub ceil { my $var = shift; my $a = 0; $a = 1 if($var > 0 and $var != int($var)); return int($var + $a); }
Posted by Kyosuke Takayama at 2003-05-24 (Sat) 10:40 printable version
