Skip to content

Instantly share code, notes, and snippets.

@OR13

OR13/haskell-round-to-nearest-multiple.hs

Last active September 15, 2021 05:38
Show Gist options
  • Save OR13/20bc2044e01d512a51d0 to your computer and use it in GitHub Desktop.
Save OR13/20bc2044e01d512a51d0 to your computer and use it in GitHub Desktop.
Download ZIP
Round N to nearest multiple of M
Raw
haskell-round-to-nearest-multiple.hs
-- | Ternary operator.
-- Usage: (i > 0) ? i $ 1
(?) :: Bool -> a -> a -> a
True ? x = const x
False ? _ = id
-- round n to nearest multiple of m
roundToNearestMultiple :: Int -> Int -> Int
roundToNearestMultiple n m = (m >= n) ? m $ (n `div` m + 1) * m
Raw
python-round-to-nearest-multiple.py
# edited with credit to https://gist.github.com/OR13/20bc2044e01d512a51d0#gistcomment-3745258
def round_to_nearest(n, m):
return (n + m - 1) // m * m
@sammykagiri
Copy link

sammykagiri commented Sep 15, 2021 •
edited
Loading

This is a good one. What about the equivalent of MROUND function in excel in which case round_to_nearest(20.46, 0.05) should be 20.45 instead of 20.50 and round_to_nearest(20.48, 0.05) should be 20.50 ?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment