Tacit comes in many styles. You might find this script interesting.
P=: 0.01 0.05 0.25 0.50 0.75 0.95 0.99
pc=: 13 :'(x >.@* <:@# y){/:~y'
D=:?#~12
P pc D
pc2=: (] {~ [ >.@* <:@#@]) /:~
P pc2 D
pc3=: 13 :'(x >.@* ([:<:#) y){/:~y'
P pc3 D
pc4=: 13 :'(x ([: >.*)([:<:#) y){/:~y'
P pc4 D
5!:4 <'pc'
5!:4 <'pc2'
5!:4 <'pc3'
5!:4 <'pc4'
pc
pc2
pc3
pc4
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Yoel Jacobsen
Sent: Wednesday, July 29, 2015 7:51 AM
To: Programming forum <[email protected]>
Subject: Re: [Jprogramming] [Jdatabase] A few questions
Brian,
I wasn't aware of 13: . Thank you.
Yoel
>From Brian Schott <[email protected]>
> Have you tried the 13 : feature like this?
>
> 13 : '(x >.@* <:@# y){/:~y'
> ([ >.@* [: <:@# ]) { [: /:~ ]
>
>
>
> --
> (B=) <-----my sig
> Brian Schott
> ----------------------------------------------------------------------
> 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
