in =. ". leaf (3 8 _2 { ;:)"1 a =. > cutLF wdclippaste ''
Y =: (&({::))(@:])
part1 :
>./ {:"1 +/\@(2503 $ (0 #~ 2 Y) ,~ 1 Y # 0 Y)"1 in
2:
>./ (] +/@(="1 1) >./) +/\@(2503 $ (0 #~ 2 Y) ,~ 1 Y # 0 Y)"1 in
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
