split =: 13 : '(-.0,}: y e. ''ns'') <;.1 y'
pos =: [:+/[:>(0 1;_1 1;_1 0;0 _1;1 _1;1 0){~(<;._1' e se sw w nw ne') i. split

+/2|+/"1 = d=: (pos;._2) 1!:1<'day24'

NB. part2 TBD