From: Neil Smith Date: Fri, 15 Dec 2017 16:59:48 +0000 (+0000) Subject: Fixed a bug that isn't a bug in practice X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-17.git;a=commitdiff_plain;h=7bd53fa28f55dc6264d383deb23090799d21dd0c Fixed a bug that isn't a bug in practice --- 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]