From 7bd53fa28f55dc6264d383deb23090799d21dd0c Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Fri, 15 Dec 2017 16:59:48 +0000 Subject: [PATCH] Fixed a bug that isn't a bug in practice --- src/advent15/advent15.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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] -- 2.34.1