a =: 0 : 0 0 0 0 0 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 0 0 0 0 0 ) $b =: ".;._2 a 6 7
>,each ;/(3&":`(' '"_))@.(0=])"0"1 b
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
