eriedaberrie/advent-of-code
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

2023 day 1: touchup

Browse source
This commit is contained in:
eriedaberrie 2023-12-02 20:30:03 -08:00
parent d598c40185
commit ce72d1e8bc
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -1,2 +1,4 @@
*.fasl
*.o
*.hi
data.txt

6
2023/1/Main.hs
View file

@ -2,7 +2,7 @@ import Data.Char (isDigit, digitToInt)
import Data.Function (on)
import Data.List (tails, findIndex, isPrefixOf, minimumBy)
import Data.Maybe (mapMaybe)
import Data.Bifunctor (first)
import Data.Bifunctor (first, bimap)
type LineOp = String -> Int
@ -31,8 +31,8 @@ firstNumInLine l = fst . minimumBy (compare `on` snd) . mapMaybe numIndex
opLineAdvanced :: LineOp
opLineAdvanced l = (combineDigits `on` uncurry firstNumInLine)
(l, fullWordMap)
(reverse l, first reverse <$> fullWordMap)
<*> bimap reverse (map $ first reverse)
$ (l, fullWordMap)
combineDigits :: Int -> Int -> Int
combineDigits = (+) . (10 *)