I assume you meant "primping" rather than "pimping". :-) If it is a typo it's a pretty bad one and can get you into a lot of trouble in other contexts.
----- Original Message ----- From: "R.E. Boss" <[email protected]> Date: Monday, April 12, 2010 1:40 Subject: Re: [Jprogramming] boxes To: 'Programming forum' <[email protected]> > Thanks to Hui who showed me how to "rank" operators and after > pimping kfcs1 > a bit I come to > > kfcs1=: 3 : 0 > (i.>:{:$y) kfcs1 y > : > t=. (([: +/"(1) 0 = ]) </. ]) 3 #.^:_1 i.3^{:$y > t=. ((- *),: 2 + 0 = ])"(1) ; x { |.t > c=. ({. , +/ , 0 ,: {:) y > t 4 : 'x}y'"1 _ c > ) > > C=: 10 20 30 40 ,: 1 2 3 4 > > $ kfcs1 C > 81 2 4 > > ({:"2</.]) 3 kfcs1 C > +-----------+-----------+-----------+-----------+ > |10 20 30 40|10 20 30 40|10 20 30 40|10 20 30 40| > | 1 2 3 0| 1 2 0 4| 1 > 0 3 4| 0 2 3 4| > | > | | | | > |10 20 30 44|10 20 33 40|10 22 30 40|11 20 30 40| > | 1 2 3 0| 1 2 0 4| 1 > 0 3 4| 0 2 3 4| > +-----------+-----------+-----------+-----------+ > > > R.E. Boss > > > > -----Oorspronkelijk bericht----- > > Van: [email protected] [mailto:programming- > > [email protected]] Namens R.E. Boss > > Verzonden: zondag 11 april 2010 18:23 > > Aan: 'Programming forum' > > Onderwerp: Re: [Jprogramming] boxes > > > > I discovered a nice solution using the method of Jacobi, see > > http://jsoftware.com/pipermail/programming/2010-April/019081.html > > His method essentially gave the structure, the rest was amending. > > > > kfcs1=: 3 : 0 > > (i.>:{:$y) kfcs1 y > > : > > t=. ((-*),:2+0=])"(1) (#~ x e.~ [:+/"(1) 0=]) 3 #.^:_1 > i.3^{:$y> c=. ({. , +/ , 0 ,: {:) y > > t amnd c > > ) > > > > amnd=: 4 : 0 > > s=. {:$y > > ($x)$ ,((s*x) +"1 i.s) { ,y > > ) > > > > I had to introduce a verb for higher order amends. > > > > C=: 4 3 0 ,: _4 _3 _2 > > > > 2 (kfcs -:&:([:/:~@,<"2) kfcs1) C > > 1 > > > > (kfcs -:&:([:/:~@,<"2) kfcs1) C > > 1 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
