This commit is contained in:
thornAvery 2021-12-10 05:33:11 +00:00
parent 30ba924d0f
commit f575efd5a0

View file

@ -35,7 +35,6 @@ acScore' n (c:cs) = acScore' (x+(5*n)) cs
'<' -> 4 '<' -> 4
_ -> 0 _ -> 0
catLine :: String -> Result catLine :: String -> Result
catLine = catLine' [] catLine = catLine' []
@ -58,7 +57,6 @@ getMid xs = xs !! n
where where
n = (length xs) `div` 2 n = (length xs) `div` 2
score :: Char -> Int score :: Char -> Int
score ')' = 3 score ')' = 3
score ']' = 57 score ']' = 57