*/"1 @ (>@,)  is significantly faster and leaner than */@>@, .

   t=: <"1 ] 1+2 3 4 5 6 7 [EMAIL PROTECTED] 100
   ts=: 6!:2 , 7!:[EMAIL PROTECTED]
   ts '*/@>@, t'
0.000522413 75136
   ts '*/"1 @ (>@,) t'
0.000103086 46784



----- Original Message -----
From: Raul Miller <[EMAIL PROTECTED]>
Date: Monday, January 7, 2008 11:03
Subject: Re: [Jprogramming] Fitting factors of positive integers
To: Programming forum <[email protected]>

> On Jan 7, 2008 1:04 PM, Roger Hui <[EMAIL PROTECTED]> wrote:
> > fac2=: */"1 @ (>@,) @ { @ (<@(1,*/\)/.~) @ q:
> 
> fac2a=: */@ >@, @ { @ (<@(1,*/\)/.~) @ q:
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to