diff --git a/2019/day1/day1.hs b/2019/day1/day1.hs
index e6cfd87..e236a20 100644
--- a/2019/day1/day1.hs
+++ b/2019/day1/day1.hs
@@ -6,9 +6,9 @@ main = do
 
 
 day11 :: [String] -> Int
-day11 xs = sum $ map ((subtract 2) . floor . (/ 3) . read) xs
+day11 xs = sum $ map ((subtract 2) . (`div` 3)  . read) xs
 
 day12 :: [String] -> Int
 day12 xs = (sum $ map (f . read) xs) - (sum $ map read xs) where
-    f x | x>0=x+f (((subtract 2) . floor . (/ 3) . fromIntegral) x)
+    f x | x>0=x+f (((subtract 2) .  (`div` 3)) x)
         | otherwise = 0