[Jprogramming] loopless programming question

[R.E. Boss]

Or, to give a more precise translation of the select-statement

([:; <@( (+/@])`(*/@])`(>./@])`($0:)@.([: 3:`] @.(0 1 2 e.~ ]) (|{.)))"_1)


R.E. Boss


> -----Oorspronkelijk bericht-----
> Van: programming-bounces at jsoftware.com [mailto:programming-
> bounces at jsoftware.com] Namens Aai
> Verzonden: dinsdag 2 februari 2010 12:30
> Aan: Programming forum
> Onderwerp: Re: [Jprogramming] loopless programming question
> 
> Indices more compact:
> 
> ([:; <@( (+/@])`(*/@])`(>./@])`($0:)@.(3 <. (|{.)))"_1)
> 
> 
> Hallo R.E. Boss, je schreef op 02-02-10 11:52:
> > Or tacitly (NB. wrap around)
> >
> >    (5 ?.@$ 4) ([:; <@( (+/@])`(*/@])`(>./@])`($0:)@.([: ]`3:@.(2<])
> (|{.))
> > )"0 1) 5 4 ?.@$ 20
> > 52 19 38 30
> >
> >
> >
> >
> 
> --
> Met vriendelijke groet,
> =@@i
> 
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm