diff options
author | Orangerot <purple@orangerot.dev> | 2024-05-17 15:41:55 +0200 |
---|---|---|
committer | Orangerot <purple@orangerot.dev> | 2024-12-01 05:55:27 +0100 |
commit | 347d2f1fbce2d3927a32b3af818ab67943628568 (patch) | |
tree | fae9181a8f69a7f26f9fec10bb0941ad4e0f1edd /2023/day01/Main_clean.hs | |
parent | a1895fe157e06ee4d119576163ea76390b3d402c (diff) |
Diffstat (limited to '2023/day01/Main_clean.hs')
-rw-r--r-- | 2023/day01/Main_clean.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/2023/day01/Main_clean.hs b/2023/day01/Main_clean.hs new file mode 100644 index 0000000..21b18a3 --- /dev/null +++ b/2023/day01/Main_clean.hs @@ -0,0 +1,25 @@ +import Data.List +import Data.Char + +wordDict = ["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"] + +findFirst :: String -> [String] -> Int +findFirst [] _ = 0 +findFirst s@(x:xs) wordDict + | isDigit x = read [x] + | Just y <- elemIndex (take 3 s) wordDict = y -- not needed for exercise 1 + | Just y <- elemIndex (take 4 s) wordDict = y -- not needed for exercise 1 + | Just y <- elemIndex (take 5 s) wordDict = y -- not needed for exercise 1 + | otherwise = findFirst xs wordDict + +findLast s wordDict = findFirst (reverse s) (map reverse wordDict) + +main :: IO () +main = do + inputLines <- lines <$> getContents + + let intList = map (\x -> findFirst x wordDict * 10 + findLast x wordDict) inputLines + let result = sum intList + + print result + |