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

Day 14: Part2 in progress

Browse source
This commit is contained in:
Christoph Stahl 2021-12-15 17:44:58 +01:00
parent 6053c185cd
commit 05bd0464d9
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
d14golf.hs
View file

@ -1,9 +1,17 @@
import Data.List import qualified Data.Map as M
l=readFile"d14small" l=readFile"d14small"
i :: [(String, Char)] -> String -> String i :: [(String, Char)] -> String -> String
i r[x] = [x] i r[x] = [x]
i r(a:b:x)|Just c<-lookup [a,b] r=a:c:i r(b:x) i r(a:b:x)|Just c<-lookup [a,b] r=a:c:i r(b:x)
split(x:y:xs)=[x,y]:split(y:xs)
split _=[]
parse :: String -> ([String],[(String, Char)]) apply :: M.Map String Int -> M.Map String (M.Map String Int) -> M.Map String Int
parse = fmap (map((,).take 2<*>(!!6)).tail).break(==[]).lines apply innermap conf = M.mapWithKey (undefined) innermap
main=interact$show.length.(!!40).(\([x],r)->iterate(i r)x).parse
step conf init = M.map (id) conf
makeTuple(a:b)c=(a:b,(M.fromList[([a,c],1),(c:b,1)],M.fromList[(c,1)]))
parse :: String -> ([String],M.Map String (M.Map String Int,M.Map Char Int))
parse = (\([x],_:y)->(split x,(M.fromList.map((makeTuple).take 2<*>(!!6)))y)).break(==[]).lines
--main=interact$show.length.(!!40).(\([x],r)->iterate(i r)x).parse