16 lines
240 B
Haskell
16 lines
240 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Main where
|
|
|
|
import Data.Functor
|
|
|
|
parse = undefined
|
|
|
|
solve1 = undefined
|
|
|
|
solve2 = undefined
|
|
|
|
main :: IO ()
|
|
main = readFile "inputs/18" <&> parse >>= \i ->
|
|
print (solve1 i) >>
|
|
print (solve2 i)
|