Dan Bron wrote:
>        zz2 =:  ($ $ [: /:@:; <@:|.`</.)@:i.@:,~

Note that, if simplified, this will also handle non-square arrays:
   ZZ=:  $ /:@;@(<@|.`</.)@i.
 
   ZZ 3 4
0 1 5  6
2 4 7 10
3 8 9 11
 
Or, if you don't like @, then perhaps something like:
   ZZ0=:  ((($ /:) ;) (([: < |.)`</.)) i.
 
FYI,
 
-- 
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to