From e55fee94b123f0e55b23c4919a2d6dd753d08846 Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Fri, 3 Dec 2021 22:39:54 +0100 Subject: [PATCH] Day 3: 268 --- d3golf.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/d3golf.hs b/d3golf.hs index 3ab2456..90259cd 100644 --- a/d3golf.hs +++ b/d3golf.hs @@ -5,6 +5,6 @@ m=map l=length d=foldr(\x y->2*y+x)0.reverse (#)q=h.q.sortBy((.l).compare.l).group.sort -f%x|x==[[]]=[]|i<-f#h(e x)=i:f%[u|y:u<-x,y==i] -t x=d(last%x)*d(h%x) -main=interact$show.((,).t<*>((*)<*>(-)4095).d.m(h#).e).m(m((-48+).fromEnum)).lines \ No newline at end of file +x%f|x==[[]]=[]|i<-f#h(e x)=i:[u|y:u<-x,y==i]%f +t x=d(x%last)*d(x%h) +main=interact$show.((,).t<*>((*)<*>(-)4095).d.m(h#).e).m(m(read.pure)).lines \ No newline at end of file