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

Cosmetics

This commit is contained in:
Natty 2023-12-12 00:11:31 +01:00
parent 26cec0dba3
commit db50deea96
Signed by: natty
GPG Key ID: BF6CB659ADEE60EC
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
day10b/src/Main.hs
View File

@ -47,7 +47,7 @@ main = do
<$> (($ start) <$> ([first, second] <*> [(-1 +), (1 +)]))
let path =
((start, 0b1111) :)
((start, pipeStart) :)
. takeWhile ((/= start) . fst)
. tail
$ iterate (head . filter ((/= 0) . snd) . findAdj) (start, pipeStart)