I hardly understand it myself (this nested amend):
bk=:(<<i.5);(<i.10);<(<<<<i.3)
bk ([ {:@[`(1&{...@[)`]} L:0 ] {~ {...@[)`({...@[)`]}~ 2 1 99
+-------------+---------------------+--------------+
|+-----------+|+-------------------+|+------------+|
||+---------+|||0 1 2 3 4 5 6 7 8 9|||+----------+||
|||0 1 2 3 4|||+-------------------+|||+--------+|||
||+---------+|| ||||+------+||||
|+-----------+| |||||0 99 2|||||
| | ||||+------+||||
| | |||+--------+|||
| | ||+----------+||
| | |+------------+|
+-------------+---------------------+--------------+
--
Met vriendelijke groet,
=@@i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
