From 41711114e987f7365634c3b51d85874790bd0a9f Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Sat, 4 Dec 2021 01:07:33 +0100
Subject: [PATCH] Day 2: 229

---
 d2golf.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/d2golf.hs b/d2golf.hs
index 82d01fc..5d0cc2e 100644
--- a/d2golf.hs
+++ b/d2golf.hs
@@ -1,4 +1,5 @@
 q(h:f:_)(d,n)|"f"==d=[h,f+n]|let=[d%h$n,f]
 p[h,f,a](d,n)|"f"==d=[h+n,f+n*a,a]|let=[h,f,d%a$n]
-(%)d|"f"<d=(-)|let=(+)
+(%)"u"=(-)
+(%)_=(+)
 main=interact$show.(<$>[p,q]).((\(a:b:_)->a*b).).flip(`foldl`[0,0,0]).map(fmap read.splitAt 1.map head.words).lines
\ No newline at end of file