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

Day 1: 122

Browse source
This commit is contained in:
Christoph Stahl 2021-12-02 12:47:53 +01:00
parent 7231149a6c
commit 536dd4f89e
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
d1golf.hs Normal file
View file

@ -0,0 +1,3 @@
t=tail
d x=sum[1|y<-zipWith(<)x(t x),y]
main=interact$show.((,).d<*>d.((zipWith3(((+).).(+))<*>t)<*>(t.t))).map read.lines