diff --git a/d3golf.hs b/d3golf.hs index 104a5c4..d8b4cc0 100644 --- a/d3golf.hs +++ b/d3golf.hs @@ -4,7 +4,7 @@ h=head m=map l=length d=foldr(\x y->2*y+x)0.reverse -c q=h.q.sortBy((.l).compare.l).group.sort -f%xs|xs==[[]]=[]|i<-c f$h$e xs=i:f%m tail((filter.(.h).(==))i xs) +(#)q=h.q.sortBy((.l).compare.l).group.sort +f%x|x==[[]]=[]|i<-f#h(e x)=i:f%m tail(filter((==i).h)x) t x=d(last%x)*d(h%x) -main=interact$show.((,).t<*>((*)<*>(-)4095).d.m(c h).e).m(m((-48+).fromEnum)).lines \ No newline at end of file +main=interact$show.((,).t<*>((*)<*>(-)4095).d.m(h#).e).m(m((-48+).fromEnum)).lines \ No newline at end of file