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

Day 7: 123

Browse source
This commit is contained in:
Christoph Stahl 2021-12-07 12:47:10 +01:00
parent cf1b023ab2
commit b91c813f69
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
d6golf.hs
View file

@ -1,3 +1,3 @@
j=(1<$[0..8])++zipWith(+)j(drop 2 j)
d x n=sum[j!!(8-i+n)|i<-x] d x n=sum[j!!(8-i+n)|i<-x]
j=(1<$[0..8])++zipWith(+)j(drop 2 j)
main=interact$show.(<$>[256,80]).d.read.('[':).(++"]") main=interact$show.(<$>[256,80]).d.read.('[':).(++"]")

4
d7golf.hs
View file

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