This commit is contained in:
Natty 2023-12-01 15:59:39 +01:00
parent 2104ab5b46
commit c8281f2785
6 changed files with 1 additions and 20 deletions

View File

@ -11,9 +11,6 @@ author: Natty
maintainer: natty.sh.git@gmail.com
copyright: 2023 Natty
build-type: Simple
extra-source-files:
README.md
CHANGELOG.md
executable day01a
main-is: Main.hs

View File

@ -4,10 +4,6 @@ author: "Natty"
maintainer: "natty.sh.git@gmail.com"
copyright: "2023 Natty"
extra-source-files:
- README.md
- CHANGELOG.md
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
dependencies:

View File

@ -11,9 +11,6 @@ author: Natty
maintainer: natty.sh.git@gmail.com
copyright: 2023 Natty
build-type: Simple
extra-source-files:
README.md
CHANGELOG.md
executable day01b
main-is: Main.hs

View File

@ -4,10 +4,6 @@ author: "Natty"
maintainer: "natty.sh.git@gmail.com"
copyright: "2023 Natty"
extra-source-files:
- README.md
- CHANGELOG.md
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
dependencies:

View File

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

View File

@ -4,10 +4,6 @@ author: "Natty"
maintainer: "natty.sh.git@gmail.com"
copyright: "2023 Natty"
extra-source-files:
- README.md
- CHANGELOG.md
description: Please see the README at <https://git.astolfo.cool/natty/aoc23#readme>
dependencies: