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

Day 5v2: 262

Browse source
This commit is contained in:
Christoph Stahl 2021-12-05 22:58:11 +01:00
parent 2de92980fd
commit 6ea9780d81
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
d5golf2.hs
View file

@ -1,7 +1,7 @@
import Data.List import Data.List
x?y=x+signum(y-x) x?y=x+signum(y-x)
v i[a,b]=i$w(==)a b i#[a,b]=i$w(==)a b
m=map;l=length;f=filter;w=zipWith m=map;l=length;f=filter;w=zipWith
z a|(x,_:y)<-break(<'.')a=m read[x,y] z a|(x,_:y)<-break(<'.')a=m read[x,y]
n[f,d]|v and[f,d]=[f]|let=f:n[w(?)f d,d] n[f,d]|and#[f,d]=[f]|let=f:n[w(?)f d,d]
main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f(v or)x]).m(m z.f(>".").words).lines main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f(or#)x]).m(m z.f(>".").words).lines