[Date Index] [Thread Index] [Author Index]

Re: Re: How do quickest

• To: mathgroup at smc.vnet.net
• Subject: [mg72949] Re: [mg72935] Re: How do quickest
• From: Artur <grafix at csl.pl>
• Date: Fri, 26 Jan 2007 06:42:31 -0500 (EST)
• References: <200701231003.FAA06815@smc.vnet.net> <ep7cho$bdl$1@smc.vnet.net> <200701251255.HAA22217@smc.vnet.net>

Comparision 3 procedures Length[a] < 11:

Daniel Huber        4.487 Second
Daniel Lichtblau   13.219 Second Second
Myself             58.744 Second

BEST WISHES
ARTUR

Dnia 25-01-2007 o 13:55:38 dh <dh at metrohm.ch> napisa³(a):

> a = {3}; For[k = 1 + a[[Length[
>
>>      a]]], Length[a] < 13, While[! IntegerQ[Sqrt[(k)^2 + Sum[(a[[t]])^2,
>
>> {t, 1,
>
>>     Length[a]}]]], k++]; AppendTo[a, k]]; a

• References:
  • Re: Running Galois.m on Version 2.2.2
    • From: "Paul" <CarolP@rockford.com>
  • Re: How do quickest
    • From: dh <dh@metrohm.ch>