christofsteel/aoc2021
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 14: Works for Part 1... sad

Browse source
This commit is contained in:
Christoph Stahl 2021-12-15 11:03:37 +01:00
parent 26e44e8e8c
commit 6053c185cd
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
d14golf.hs Normal file
View file

@ -0,0 +1,9 @@
import Data.List
l=readFile"d14small"
i :: [(String, Char)] -> String -> String
i r[x] = [x]
i r(a:b:x)|Just c<-lookup [a,b] r=a:c:i r(b:x)
parse :: String -> ([String],[(String, Char)])
parse = fmap (map((,).take 2<*>(!!6)).tail).break(==[]).lines
main=interact$show.length.(!!40).(\([x],r)->iterate(i r)x).parse