2019/9.hs


1
2
3
4
5
6
7
8
9
10
11

module Main where

import Input
import IntCode


main :: IO ()
main = do
    prog <- parse . head <$> getInput 9
    print (head (snd (run prog [1])))
    print (head (snd (run prog [2])))