jack/aoc-2018
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Formatting

Browse Source
This commit is contained in:
Jack Bond-Preston
2018-12-02 15:33:01 +00:00
parent 6eb6bd8d14
commit e6bcbbf744
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
aoc-2/main.hs
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]