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

Day 7:128

Browse source
This commit is contained in:
Christoph Stahl 2021-12-07 10:17:49 +01:00
parent a01803af67
commit cf1b023ab2
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
d7golf.hs Normal file
View file

@ -0,0 +1,3 @@
m d i=minimum[sum$map(d.abs.(x-))i|x<-[0..maximum i]]
g n=(n^2+n)`div`2
main=interact$show.((,).m g<*>m id).read.('[':).(++"]")