Pimping was an appropriate term:
http://www.urbandictionary.com/define.php?term=pimped%20out&page=2
http://en.wikipedia.org/wiki/Pimp_My_Ride
-Dan
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Roger Hui
Sent: Monday, April 12, 2010 10:51 AM
To: Programming forum
Subject: Re: [Jprogramming] boxes
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
