On Wed, Jan 21, 2009 at 12:44 PM, Brian Schott <[email protected]> wrote: > lr =: 5!:5&< > boxedtoken =: ;:@lr > fetch=: >@({&>/)@(<"0@|....@[ , <@]) " 1 _ > The correct expansion list for my example is the > following, but I am looking for a code snippet which uses > the results of `;@boxedtoken 'fetch'` and `lr 'fetch'` to > produce the resulting list. > > 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
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 FYI, -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
