implemented showFloating

This commit is contained in:
Jonathan Lamothe
2019-11-28 06:20:14 -05:00
parent be54198960
commit dcbb809ae1
2 changed files with 16 additions and 2 deletions

View File

@@ -188,5 +188,9 @@ overlayLast str [l] = [overlay str l]
overlayLast str (l:ls) = l : overlayLast str ls
-- | Converts a non-integer into a string
showFloating :: Fractional n => n -> String
showFloating = undefined
showFloating :: RealFrac n => n -> String
showFloating n = let
i = round $ n * 100
whole = i `div` 100
fraction = i `mod` 100
in show whole ++ "." ++ padNum 2 fraction