Day 6: 125

This commit is contained in:
Christoph Stahl 2021-12-06 17:01:51 +01:00
parent 6ea9780d81
commit 1f5b481b6a

3
d6golf.hs Normal file
View file

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