christofsteel/aoc2021
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 3: 293

Browse source
This commit is contained in:
Christoph Stahl 2021-12-03 21:36:06 +01:00
parent 55c313e857
commit 47cd154d5e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
d3golf.hs
View file

@ -7,4 +7,4 @@ 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)
t x=d(last%x)*d(h%x)
main=interact$show.((,).t<*>(\i->i*(4095-i)).d.m(c h).e).m(m((-48+).fromEnum)).lines
main=interact$show.((,).t<*>((*)<*>(-)4095).d.m(c h).e).m(m((-48+).fromEnum)).lines