6 lines
199 B
J
6 lines
199 B
J
|
r =: > cutopen 1!:1 < jpath '~/projects/AoC/2020/year2020day3.txt.cache'
|
||
|
|
rn =: 4 : '+/''#''=((#|:y)|x*i.#y){"0 1 y'
|
||
|
|
rnx =: 3 : '(1{y) rn 0{"2((0{-y)]\r)'
|
||
|
|
rnx 1 3
|
||
|
|
*/ rnx"1 (_2 [\ 1 1 1 3 1 5 1 7 2 1)
|