Day 3Part1: not Optimized

2021-12-03 10:13:54 +01:00 · 2021-12-03 10:13:54 +01:00 · 56fc98f387
commit 56fc98f387
parent f75b36b26b
1 changed files with 8 additions and 0 deletions
--- a/d3golf.hs
+++ 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