Bleh. POSIX::floor() on a Perl that uses "long double" (or similar) as NVs induces a great reduction in precision. Much better to just use:

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

Now you know. :)

- tye        


In reply to Re^2: Best Material for Floors: (POSIX--) by tye
in thread Best Material for Floors: by Petruchio

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":