module HelpNum where

toClosestMultiple :: Float -> Float -> Float
{-# INLINE toClosestMultiple #-}
toClosestMultiple m x = m * fromIntegral (round (x / m) :: Int)