You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
408 B
12 lines
408 B
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
|