From 8984d1060c035d6860b6c0130d860b0f0f479c7e Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Thu, 2 Dec 2021 14:52:04 +0100
Subject: [PATCH] Day 2: 240

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

diff --git a/d2golf.hs b/d2golf.hs
new file mode 100644
index 0000000..d7d6aef
--- /dev/null
+++ b/d2golf.hs
@@ -0,0 +1,3 @@
+q[h,f](d,n)|"u"<-d=[h-n,f]|"d"<-d=[h+n,f]|let=[h,f+n]
+p[h,f,a](d,n)|"u"<-d=[h,f,a-n]|"d"<-d=[h,f,a+n]|let=[h+n,f+n*a,a]
+main=interact$show.(\a->product.($a)<$>[init.foldl p[0,0,0],foldl q[0,0]]).map(fmap read.splitAt 1.map head.words).lines
\ No newline at end of file