From 67e38fc1c3307d7f25f1f217c38dd7e6c4441502 Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Tue, 14 Dec 2021 02:43:07 +0100
Subject: [PATCH] Day 12: 282

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

diff --git a/d12golf.hs b/d12golf.hs
new file mode 100644
index 0000000..2994e14
--- /dev/null
+++ b/d12golf.hs
@@ -0,0 +1,8 @@
+import Data.List
+z=filter
+s="start"
+w(a,b)=(b,a)
+i%m=map snd$z((==i).fst)(m++map w m)
+g c v f m|c=="end"=[[]]|let=map(c:)$(\x->g x(z(>"Z")$c:v)f m++[q|f,q<-g x v(2<1)m])=<<c%m\\v
+v t=length.group.sort.g s[s]t
+main=interact$show.((,).v(2>1)<*>v(2<1)).map(fmap tail.span(/='-')).lines
\ No newline at end of file