2019/5.hs


1
2
3
4
5
6
7
8
9
10
11

module Main where

import Input
import IntCode


main :: IO ()
main = do
    initMem <- parse . head <$> getInput 5
    print (last (snd (run initMem [1])))
    print (last (snd (run initMem [5])))