On Mon, Jul 21, 2008 at 12:55 PM, John Randall
<[EMAIL PROTECTED]> wrote:
> ppr=: +//.@(*/)
> f=:13 : '+/(->.-:#y){. ppr/(1-y),.y'
> pr1=:21 # 0.7
> pr2=:0.95 0.95 0.90 0.90 0.80
This probably does not help, but I can not resist rephrasing your f:
F=: >[EMAIL PROTECTED]:@# +/@{. ppr/@(,. -.)
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
