Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -28,7 +28,7 @@ fdiv :: Int -> Int -> String -> String
 fdiv x y s = removeDot (take 3 (show ((fromIntegral x / fromIntegral y)::Float))) ++ s

 removeDot :: String -> String
-removeDot (a:b:'.':[]) = a:b:[]
+removeDot [a,b,'.'] = [a,b]
 removeDot xs = xs

 k,m,g,t,p :: Int