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

Day 5v2: 340

Browse source
This commit is contained in:
Christoph Stahl 2021-12-05 15:01:11 +01:00
parent 2157214c8a
commit 4ce7a70666
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
d5golf2.hs Normal file
View file

@ -0,0 +1,8 @@
import Data.List
m=map;(!)=splitAt
p[s,_,t]=m(m read.(&','))[s,t]
v[[a,b],[c,d]]=a==c||b==d
a&x|(u,_:v)<-break(==x)a=u:v&x|let=[a]
n[[x,y],[a,b]]|x/=a||y/=b=(x,y):n[[(x?a),(y?b)],[a,b]]|let=[(x,y)]
x1?x2|x1>x2=x1-1|x1<x2=x1+1|let=x1
main=interact$show.m(length.filter (>1).map length.group.sort.(n=<<)).(\x->[x,filter v x]).m(p.words).lines