Or tacitly (NB. wrap around)
(5 ?...@$ 4) ([:; <@( (+/@])`(*/@])`(>./@])`($0:)@.([: ]`3:@.(2<]) (|{.))
)"0 1) 5 4 ?...@$ 20
52 19 38 30
R.E. Boss
> -----Oorspronkelijk bericht-----
> Van: [email protected] [mailto:programming-
> [email protected]] Namens R.E. Boss
> Verzonden: dinsdag 2 februari 2010 11:43
> Aan: 'Programming forum'
> Onderwerp: Re: [Jprogramming] loopless programming question
>
> Probably slower but equivalent with your e is
>
> e1a=: 4 : 0"0 1
> z=. x(|{.)y
> select. z
> case. 0 do. <+/y
> case. 1 do. <*/y
> case. 2 do. <>./y
> case. do. a:
> end.
> )
>
> (5 ?...@$ 4) ;@:e1a 5 4 ?...@$ 20
> 52 19 38 30
>
>
> R.E. Boss
>
>
>
> > -----Oorspronkelijk bericht-----
> > Van: [email protected] [mailto:programming-
> > [email protected]] Namens R.E. Boss
> > Verzonden: dinsdag 2 februari 2010 11:21
> > Aan: 'Programming forum'
> > Onderwerp: Re: [Jprogramming] loopless programming question
> >
> > What e does in the while loop is matching the items of x with those of
> y.
> > For this we have the rank conjunction, which in this case is "0 1 .
> > Only ravel the result.
> >
> >
> > e1=: 4 : 0"0 1
> > w=. i. 0
> > z=. x(|{.)y
> > select. z
> > case. 0 do. w=. w,+/y
> > case. 1 do. w=. w,*/y
> > case. 2 do. w=. w,>./y
> > case. do. w=. w
> > end.
> > w
> > )
> >
> > (5 ?...@$ 4) ,@:e1 5 4 ?...@$ 20
> > 52 19 38 0 30
> >
> >
> > R.E Boss
> >
> >
> > > -----Oorspronkelijk bericht-----
> > > Van: [email protected] [mailto:programming-
> > > [email protected]] Namens Brian Schott
> > > Verzonden: dinsdag 2 februari 2010 4:42
> > > Aan: [email protected]
> > > Onderwerp: [Jprogramming] loopless programming question
> > >
> > >
> > > I am working on revising an Einstein puzzle solving
> > > program which currently is written as long while. loops, so
> > > that the looping is minimized in the revision. I think the
> > > answer to my question has been discussed in these forums as
> > > a way to more efficiently calculate a result when the number
> > > of different calculations is small relative to the length of
> > > the list of data that is being operated upon. But I cannot
> > > imagine how to search for that thread, so I have tried to
> > > create a verb that shows the while. loop process in my
> > > current program but does not resemble the real problem which
> > > is more complex. I hope that with help on revising this
> > > simplified problem to eliminate the while. loop, I can
> > > master my real one.
> > >
> > > Thank you,
> > >
> > > e =: dyad define"1 2
> > > assert. x -:&{.&$ y
> > > w=. i. 0
> > > while. #y do.
> > > b=. {. y
> > > z=. x|&{.b
> > > select. z
> > > case. 0 do. w=. w,+/b
> > > case. 1 do. w=. w,*/b
> > > case. 2 do. w=. w,>./b
> > > case. do. w=. w
> > > end.
> > > x=.}.x
> > > y=.}.y
> > > end.
> > > w
> > > )
> > >
> > > NB. more realistically the 5's below would be 300's.
> > > NB. but this example is adequate, I hope
> > > (5 ?...@$ 4) e 5 4 ?...@$ 20
> > > 52 19 38 30
> > > (5 ?...@$ 4) ; 5 4 ?...@$ 20
> > > +---------+-----------+
> > > |2 3 3 0 2| 6 15 19 12|
> > > | |14 19 0 17|
> > > | | 0 14 6 18|
> > > | |13 18 11 12|
> > > | |18 0 10 2|
> > > +---------+-----------+
> > > 2 3 3 0 2|6 14 0 13 18
> > > 0 2 0 13 0
> > >
> > > --
> > >
> > > (B=) <----------my "sig"
> > > ----------------------------------------------------------------------
> > > 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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
