Raul,

That works for me. Thank you.

On Wed, Jan 21, 2009 at 1:29 PM, Raul Miller <[email protected]> wrote:
>
>   assume1=: ass...@-:&(-.&' ')
>   adjIndx=: (- +/\@:*)@I.@:=&' '
>   assume2=: 0 ass...@= #...@-.&adjIndx
>
>   assume1&>/ (;@boxedtoken ;lr) 'fetch'
>   assume2&>/ (;@boxedtoken ;lr) 'fetch'
>   -.~&adjIndx&>/ (;@boxedtoken ;lr) 'fetch'
> 17 18
>   (-.~&adjIndx (] +  i...@#@] j...@e. [)  1 #~ #...@[)&>/ (;@boxedtoken ;lr) 
> 'fetch'
> 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1j1 1j1 1 1 1 1 1 1 1 1



-- 
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to