If you are willing to use explicit verbs, maybe this will do.

   gen1 =: 13 :'life^:(i.x)y'
   gen1
4 : 'life^:(i.x)y'
   (4 gen1 sbd) -:(i. 4) gen sbd
1


-- 
(B=) <-----my sig
Brian Schott
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to