natty
/
aoc23
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Consistent formatting

This commit is contained in:
Natty 2023-12-01 16:00:13 +01:00
parent c8281f2785
commit 061a0c4d9c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
day01b/src/Main.hs
View File

@ -30,7 +30,7 @@ findDigitFirst (_ : t) = findDigitFirst t
findDigitFirst _ = Nothing findDigitFirst _ = Nothing
findDigitLast :: String -> Maybe Integer findDigitLast :: String -> Maybe Integer
findDigitLast (x:xs) = findDigitLast xs <|> findDigit (x : xs) findDigitLast (x : xs) = findDigitLast xs <|> findDigit (x : xs)
findDigitLast [] = Nothing findDigitLast [] = Nothing
main :: IO () main :: IO ()