thorn/aoc2020
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

cleaned up error reporting

Browse source
This commit is contained in:
Thorn Avery 2020-12-02 21:03:57 +13:00
parent d83589875d
commit d54a5d514d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
day2.hs
View file

@ -32,13 +32,13 @@ validB (Password a' b' t p) =
b = (pred b')
parse :: String -> Maybe Password
parse [] = error "empty password"
parse [] = Nothing
parse s =
do (l,s') <- parseInt s
(u,s'') <- parseInt $ dropChar s'
(t,s''') <- parseChar $ dropChar s''
let p = (dropChar . dropChar) s'''
in (Just $ Password l u t p)
in Just $ Password l u t p
parseInt :: String -> Maybe (Int,String)
parseInt s = case (reads s) of