Fixed a bug that isn't a bug in practice

diff --git a/src/advent15/advent15.hs b/src/advent15/advent15.hs
index 5aba6d7aba8dd811cbf80ac5666958b52bb38d81..4b16e08254898e636cc7b8befd6da560c4f56189 100644 (file)
--- a/src/advent15/advent15.hs
+++ b/src/advent15/advent15.hs
@@ -33,7 +33,7 @@ stream :: (Int -> Int) -> Int -> [Word16]
 stream gen n0 = map toWord16 $ drop 1 $ iterate gen n0
 
 stream' :: Int -> (Int -> Int) -> Int -> [Word16]
-stream' f gen n0 = map toWord16 $ drop 1 $ filter ((== 0) . (`mod` f)) $ iterate gen n0
+stream' f gen n0 = map toWord16 $ filter ((== 0) . (`mod` f)) $ drop 1 $ iterate gen n0
 
 
 -- filteredStream :: Word16 -> [Word16] -> [Word16]