From 56fc98f38781f3ef6a0552416b14920e5e99fc9d Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Fri, 3 Dec 2021 10:13:54 +0100
Subject: [PATCH] Day 3Part1: not Optimized

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

diff --git a/d3golf.hs b/d3golf.hs
new file mode 100644
index 0000000..9d5fc34
--- /dev/null
+++ b/d3golf.hs
@@ -0,0 +1,8 @@
+import Data.List
+d=id
+v p@(x:s)=(length p,length x,p)
+q l z = fromEnum$l`div`2<z 
+c=foldr(\x y->2*y+x)0.reverse
+u w i=i*(2^w-1-i)
+t (h,w,i)=u w$c$map(q h.sum.map(subtract 48.fromEnum))$transpose i
+main=interact$show.((,).d<*>d).t.v.lines
\ No newline at end of file