Help for this page

Select Code to Download


  1. or download this
    sub floor {  $_[0] < 0  ?  -int(-$_[0])  :  int($_[0]);  }
    
  2. or download this
    sub floor { my $i= int( my $f= shift @_ ); return $i - ( $f<0 && $f!=$
    +i ); }