X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-19.git;a=blobdiff_plain;f=advent05%2Fsrc%2Fadvent05.hs;h=2368edbdad7b38ca544d9046d582dd298bc41a15;hp=36ba4995b8537ae37a566eab328353284dc7095d;hb=9720d35537f4ddeb5fe8fa09a38c0583ae7b3b7c;hpb=568851e503161a61d0f2061e07c9c6dad2341243 diff --git a/advent05/src/advent05.hs b/advent05/src/advent05.hs index 36ba499..2368edb 100644 --- a/advent05/src/advent05.hs +++ b/advent05/src/advent05.hs @@ -69,7 +69,7 @@ runStep = do mem <- gets _memory ip <- gets _ip let opcode = (mem!ip) `mod` 100 - let modes = parameterModes ((mem!ip) `div` 100) + let modes = parameterModes ((mem!ip) `div` 100) fetchInput opcode putOutput opcode modes mem' <- gets _memory