cleanup
This commit is contained in:
parent
30ba924d0f
commit
f575efd5a0
|
@ -35,7 +35,6 @@ acScore' n (c:cs) = acScore' (x+(5*n)) cs
|
|||
'<' -> 4
|
||||
_ -> 0
|
||||
|
||||
|
||||
catLine :: String -> Result
|
||||
catLine = catLine' []
|
||||
|
||||
|
@ -58,7 +57,6 @@ getMid xs = xs !! n
|
|||
where
|
||||
n = (length xs) `div` 2
|
||||
|
||||
|
||||
score :: Char -> Int
|
||||
score ')' = 3
|
||||
score ']' = 57
|
||||
|
|
Loading…
Reference in a new issue