X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=src%2Fadvent15%2Fadvent15.hs;fp=src%2Fadvent15%2Fadvent15.hs;h=4b16e08254898e636cc7b8befd6da560c4f56189;hb=7bd53fa28f55dc6264d383deb23090799d21dd0c;hp=5aba6d7aba8dd811cbf80ac5666958b52bb38d81;hpb=a6809041da3a5cbfd7e55e41c61bcfaa5d3fb1dc;p=advent-of-code-17.git

diff --git a/src/advent15/advent15.hs b/src/advent15/advent15.hs
index 5aba6d7..4b16e08 100644
--- 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]