/ spiral matrix II h:{:[#m:+|:'1_ y;(x,(*m)_dvl x;m);(x;y)]} g:{+x _vs*{h . x}/(!x;y)} f:{:[1=x;,,1;1+./[m;g[x]m:n#i;:;i:!*/n:x,x]]} (1 2 3;8 9 4;7 6 5)~f 3 (,,1)~f 1