From 4ce7a706667af89df2c11415d975819256164005 Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Sun, 5 Dec 2021 15:01:11 +0100
Subject: [PATCH] Day 5v2: 340

---
 d5golf2.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 d5golf2.hs

diff --git a/d5golf2.hs b/d5golf2.hs
new file mode 100644
index 0000000..0b543f5
--- /dev/null
+++ b/d5golf2.hs
@@ -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
\ No newline at end of file