23 lines
565 B
Haskell
23 lines
565 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Data.Attoparsec.Text (parseOnly)
|
|
import qualified Data.Text.IO as T
|
|
|
|
import INAST
|
|
import INSolver
|
|
|
|
main :: IO ()
|
|
main = do
|
|
inputNetwork <- T.readFile "./input.network"
|
|
T.putStrLn "Using the following input network:"
|
|
T.putStrLn inputNetwork
|
|
T.putStrLn "Parsed AST:"
|
|
let Right insnet = parseOnly insuranceNetworkParser inputNetwork
|
|
print insnet
|
|
T.putStrLn "Problem solution, input=3:"
|
|
print $ solve (3::Int) insnet
|
|
T.putStrLn "Problem solution, input=6:"
|
|
print $ solve (6::Int) insnet
|