[Jprogramming] cut y in segments of each size being x's items

[김창준]

Hi

   takecut=:13 : '((}:0,+/\x)e.~i.#y) <;.1 y'
   3 2 2 takecut i.7
+-----+---+---+
|0 1 2|3 4|5 6|
+-----+---+---+
   2 4 1 takecut i.7
+---+-------+-+
|0 1|2 3 4 5|6|
+---+-------+-+

It's not so difficult. However, generalizing takecut into allowing 0 as an
item in x seems complicated. That is,

   3 0 2 2 takecut i.7
+-----++---+---+
|0 1 2||3 4|5 6|
+-----++---+---+
   0 0 4 3 0 takecut i.7
+++-------+-----++
|||0 1 2 3|4 5 6||
+++-------+-----++

Any ideas for simple solutions?
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm