One further, minor suggestion: since you use "(p-1)" each time you use "p",
why not define it as "?l" instead
of "1+?l"?
On 12/3/07, Arie Groeneveld <[EMAIL PROTECTED]> wrote:
>
> Devon McCormick schreef:
> > You'll also need
> >
> > ffit2=: [:+/[ (**)@:- ]
> >
> > On 12/3/07, Devon McCormick <[EMAIL PROTECTED]> wrote:
> >> Here's a debugged version incorporating my suggestions:
> >>
> >> evolueer2=: 4 : 0
> >> 'x oud'=. ord &.> x;y
> >> s=. x ffit2 oud
> 95),tc+1 _1
> ...
> On average it seems my version is slightly faster:
>
> ts 'it=:(] evolueer 32+[:?95$~#) ord ''Een nog langere reeks te
> verwerken!'''
> gen: 0(1162) ~([EMAIL PROTECTED]>*Aq*F|SQ)u,xNMD~7
> gen: 0(1090) =HlL&YzW1vYj#X*8O7r`]AWzm8$|s3wIz^'
> 0.096192 6784
>
> ts 'it=:(] evolueer 32+[:?95$~#) ord ''Een nog langere reeks te
> verwerken!'''
> gen: 0(1313) 8Vm<Z?COY*?onL.v$y.cPrOy}AJCz2}|9Ca
> gen: 0(886) /@mYjn:4DEAr=Hh[aqz;i YyE}o7:efFpoJ
> 0.082022 6784
>
>
> Modifying yours a bit:
>
> evolueer2=: 4 : 0
> 'x oud'=. x;y
> ...
>
>
> ts 'it=:(] evolueer2 32+[:?95$~#) ord ''Een nog langere reeks te
> verwerken!'''
> gen: 0(1194)Bb[[Jj%l8Gv-^AH%FJH9cL;nOe,_U"I%A_/
> gen: 0(1076)4T%2y'InjQ<3w>gO]?c{Q0iAB_,gNzX8Ue[
> 0.141001 14208
>
> ts 'it=:(] evolueer2 32+[:?95$~#) ord ''Een nog langere reeks te
> verwerken!'''
> gen: 0(1182)l%19n.fD$nl%1Jys]yqnj$/QT.<H`'ec)e$
> gen: 0(1318)xDX~F/VaTeUTmA|:#%M,Q;CQx+hQ9"c`Nn2
> 0.227268 14208
>
> Thanks for the suggestions.
>
>
> =@@i
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Devon McCormick, CFA
^me^ at acm.
org is my
preferred e-mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
