path: root/day01.ok

d:" "\(*0:"day01")^","

t: (1 0;0 1;-1 0;0 -1)@4!+\-1+2*"R"=d[;0]
l: .:'1_'d
+/{%x*x}@+/t*l			/ 146

fd:{x@*&{1<#x}'.=x}
+/{%x*x}@fd@+\t@&l		/ 131