19 lines
441 B
Haskell
19 lines
441 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main where
|
|
|
|
import Protolude
|
|
import Text.PrettyPrint hiding ((<>))
|
|
|
|
import qualified Day1
|
|
|
|
showSol :: [Char] -> Doc -> IO ()
|
|
showSol txt d = putText . toS . render $
|
|
text (" " <> txt <> ":")
|
|
<+> d
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putText "Day 1:"
|
|
showSol "Solution 1" (int (Day1.solution1 Day1.ex1code))
|
|
showSol "Solution 2" (int (Day1.solution2 Day1.ex1code))
|