diff options
Diffstat (limited to '2019/7.hs')
-rw-r--r-- | 2019/7.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -7,13 +7,13 @@ import Input import IntCode -part1 :: [Int] -> Int +part1 :: [Integer] -> Integer part1 program = let settings = permutations [0..4] outcome setting = foldr (.) id [\i -> head (snd (run program [p,i])) | p <- setting] 0 in maximum (map outcome settings) -part2 :: [Int] -> Int +part2 :: [Integer] -> Integer part2 program = let settings = permutations [5..9] outcome setting = |