Take a look at Jose's also... even more tacit (though not quite the same thing).
The essential trick is to convert the "verb on the right" to an adverb of the form @v which lets it work just fine in an adverb train. The "not quite the same" aspect includes reversing the order of the list. Thanks, -- Raul On Mon, Aug 25, 2014 at 6:02 PM, 'Pascal Jasmin' via Programming <[email protected]> wrote: > though I found it tricky to write ad32 without boxes due to fills, I have > written essentially the same as your last line: > > reduce =: 1 : (':'; 'u boxscan (<"_1 x), < y') > > except yours is better because its tacit. > > (i.5) + reduce (i.10) + reduce 5 0 > 60 55 > > but manipulating the boxes directly is necessary for ad32, which can operate > on partial parts of the file > > ad32c =: ((65521 | {.@:] ({:@:] ,~ [ + +/@:}:@:]) [: +/\ [,~{:@:]) boxscan) > ad32=: 65521 | [: ({: ,~ <:@:+/) ad32c > > ad32 ( ad32c |. 0 0 ; (1, a. i. 'Wik') ; a. i. 'ip') ;~ a. i.'edia' > 4582 920 > > > ----- Original Message ----- > From: Raul Miller <[email protected]> > To: Programming forum <[email protected]> > Cc: > Sent: Monday, August 25, 2014 3:15:48 PM > Subject: Re: [Jprogramming] Adler-32 > > On Mon, Aug 25, 2014 at 2:40 PM, 'Pascal Jasmin' via Programming > <[email protected]> wrote: >> boxscan can use any list of arguments as the x, and appends any >> shape as the y, as long x u y results in a shape "compatible with >> y" (more accurately compatible with future applications of x u >> result . > > boxscan can use any list of arguments as long as they are boxed. > > Assuming, of course: > boxscan=: ((&.>)/)(>@:) > > To get the behavior you have describe here, I'd probably go with a > different definition. This is a bit closer: > 1 :'>@:(u&.>/)@(, <)' > ... but that still assumes x has been boxed already. > > So perhaps: > 1 :'>@:(u&.>/)@(<"_1^:(0=L.)@[,<@])' > > Or, more simply, and closer to your description: > 1 :'>@:(u&.>/)@(<"_1@[,<@])' > > Or, at least... that is how I interpret what you are explaining to me. > > > > > Thanks, > > -- > Raul > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
