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

Day 5: 373

Browse source
This commit is contained in:
Christoph Stahl 2022-12-06 08:27:41 +01:00
parent 4dce5f6023
commit e41319e738
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
day5.hs
View file

@ -1,12 +1,11 @@
import Data.List import Data.List
m=map m=map
z=splitAt z=splitAt
f=filter(>'@')
x%[i,s,t]=u t$d i s x x%[i,s,t]=u t$d i s x
i(_:x:y)=read x:i y;i _=[] i(_:x:y)=read x:i y;i _=[]
t(_:a:_:_:x)=a:t x;t(_:a:x)=[a] t(_:a:_:_:x)=a:t x;t(_:a:x)=[a]
u s(a,x)|(t,r:d)<-z(s-1)x=t++(a++r):d u s(a,x)|(t,r:d)<-z(s-1)x=t++(a++r):d
x#[i,s,t]|i<1=x|let=(x%[1,s,t])#[i-1,s,t] x#[i,s,t]|i<1=x|let=x%[1,s,t]#[i-1,s,t]
q r(a,_:b)=foldl r(m f$t$transpose a)$m(i.words)b q r(a,_:b)=foldl r(m(filter(>'@'))$t$transpose a)$m(i.words)b
d n s x|(t,v:d)<-z(s-1)x,(h,r)<-z n v=(h,t++(r:d)) d n s x|(t,v:d)<-z(s-1)x,(h,r)<-z n v=(h,t++(r:d))
main=interact$show.(\i->m(m head.($i))[q(#),q(%)]).span(/=[]).lines main=interact$show.(\i->m(m head.($i))[q(#),q(%)]).span(/=[]).lines