sub floor { $_[0] < 0 ? -int(-$_[0]) : int($_[0]); } #### sub floor { my $i= int( my $f= shift @_ ); return $i - ( $f<0 && $f!=$i ); }