From e41319e7382a2728e0f17e940812e3e4a2a4ea9d Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Tue, 6 Dec 2022 08:27:41 +0100 Subject: [PATCH] Day 5: 373 --- day5.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/day5.hs b/day5.hs index 6d8b809..4d07cfd 100644 --- a/day5.hs +++ b/day5.hs @@ -1,12 +1,11 @@ import Data.List m=map z=splitAt -f=filter(>'@') x%[i,s,t]=u t$d i s x i(_:x:y)=read x:i y;i _=[] 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 -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 +x#[i,s,t]|i<1=x|let=x%[1,s,t]#[i-1,s,t] +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)) main=interact$show.(\i->m(m head.($i))[q(#),q(%)]).span(/=[]).lines