6 lines
164 B
Haskell
6 lines
164 B
Haskell
module HelpNum where
|
|
|
|
toClosestMultiple :: Float -> Float -> Float
|
|
{-# INLINE toClosestMultiple #-}
|
|
toClosestMultiple m x = m * fromIntegral (round (x / m) :: Int)
|