floor package:numhask

supply the previous lower whole component
>>> floor (1.001 :: Double)
1
supply the previous lower whole component
>>> floor (1.001 :: Double)
1