06.q

// --- Day 6: Chronal Coordinates ---

i:"J"$","vs'read0 `:input/06.txt

r:(2#g)#{ $[1=sum m:s=min s:sum each x;first where m;0N] } peach a:abs i-\:/:(til g) cross til g:1+max raze i

max count each group (raze r) except 0N,(last r),(last flip r),(first flip r),first r
/ 3660
sum 10000>sum each raze each a
/ 35928