From 8f26423a1a5d96b97c6d4142a6668735453e5c4d Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Thu, 2 Dec 2021 16:21:12 +0100 Subject: [PATCH] Day 2: 236 --- d2golf.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/d2golf.hs b/d2golf.hs index d7d6aef..61ebdd0 100644 --- a/d2golf.hs +++ b/d2golf.hs @@ -1,3 +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] +q[h,f](d,n)|"f"d=[h+n,f]|let=[h,f+n] +p[h,f,a](d,n)|"f"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