Add file

2023-03-26 23:00:43 +01:00
parent ee89ac9b00
commit cc4aa1ec43
6 changed files with 122 additions and 0 deletions
@@ -0,0 +1,5 @@
+module HelpNum where
+
+toClosestMultiple :: Float -> Float -> Float
+{-# INLINE toClosestMultiple #-}
+toClosestMultiple m x = m * fromIntegral (round (x / m) :: Int)