cleanup
This commit is contained in:
parent
30ba924d0f
commit
f575efd5a0
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue