interviews-in23/Main.hs

{-# 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