12 lines
408 B
Haskell
12 lines
408 B
Haskell
import Lib (checkReport, checkReportDampened, getSafeReportCount, parsedFileString)
|
|
|
|
main = do
|
|
inputs <- readFile "inputs.txt"
|
|
let parsedInputs = parsedFileString inputs
|
|
let count = getSafeReportCount checkReport parsedInputs
|
|
putStrLn "The solution to part 1 is: "
|
|
print count
|
|
let count = getSafeReportCount checkReportDampened parsedInputs
|
|
putStrLn "The solution to part 2 is: "
|
|
print count
|