Help for this page
sub floor { $_[0] < 0 ? -int(-$_[0]) : int($_[0]); }
sub floor { my $i= int( my $f= shift @_ ); return $i - ( $f<0 && $f!=$ +i ); }
www.com | www.net | www.org
No recent polls found