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

Day 6: 119

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

6
d6golf.hs
View file

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