From 536dd4f89eab636fb6d7d1ab049eb4cf547eaa9a Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Thu, 2 Dec 2021 12:47:53 +0100
Subject: [PATCH] Day 1: 122

---
 d1golf.hs | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100644 d1golf.hs

diff --git a/d1golf.hs b/d1golf.hs
new file mode 100644
index 0000000..ddd2d8f
--- /dev/null
+++ b/d1golf.hs
@@ -0,0 +1,3 @@
+t=tail
+d x=sum[1|y<-zipWith(<)x(t x),y]
+main=interact$show.((,).d<*>d.((zipWith3(((+).).(+))<*>t)<*>(t.t))).map read.lines
\ No newline at end of file