Formatting

This commit is contained in:
Jack Bond-Preston 2018-12-02 15:33:01 +00:00
parent 6eb6bd8d14
commit e6bcbbf744

View File

@ -29,8 +29,8 @@ calculateChecksum input = a * b
sameChars :: String -> String -> Int sameChars :: String -> String -> Int
sameChars (x:xs) (y:ys) sameChars (x:xs) (y:ys)
| x == y = 1 + sameChars xs ys | x == y = 1 + sameChars xs ys
| otherwise = sameChars xs ys | otherwise = sameChars xs ys
sameChars [] [] = 0 sameChars [] [] = 0
getCorrectBoxes :: [String] -> [String] getCorrectBoxes :: [String] -> [String]