MathGroup Archive 2003

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

Search the Archive

Re: Re: Need a nice way to do this

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40322] Re: [mg40310] Re: Need a nice way to do this
  • From: Dr Bob <majort at cox-internet.com>
  • Date: Tue, 1 Apr 2003 04:51:31 -0500 (EST)
  • References: <200303310901.EAA21691@smc.vnet.net>
  • Reply-to: majort at cox-internet.com
  • Sender: owner-wri-mathgroup at wolfram.com

Here's a timing for that:

n = 10000;
test = Array[Random[Integer] &, n];
Timing[drbob[test];]
Timing[drbob2[test];]
Timing[drbob3[test];]
Timing[drbob4[test];]
Timing[andrzej2[test];]
Timing[deLouis[test];]

{0.0779999999999994*Second,   Null}
{0.125*Second, Null}
{0.125*Second, Null}
{0.0940000000000003*Second,   Null}
{0.06299999999999972*Second,  Null}
{0.8120000000000003*Second,   Null}

and another:

n = 10000;
test = Array[Round[20Random[]] &, n];
Timing[drbob[test];]
Timing[drbob2[test];]
Timing[drbob3[test];]
Timing[drbob4[test];]
Timing[deLouis[test];]

{0.07800000000000029*Second,  Null}
{0.125*Second, Null}
{0.14000000000000057*Second,  Null}
{0.0940000000000003*Second,   Null}
{0.391*Second, Null}

Bobby

On Mon, 31 Mar 2003 04:01:08 -0500 (EST), Dana DeLouis 
<delouis at bellsouth.net> wrote:

> I'm new at this, but I'll take a shot:
>
> s = {a, b, b, a, a, a, b, a, b, a, a};
>
> Table[j - Count[Take[s, j], s[[j]]], {j, Length[s]}]
>
> {0, 1, 1, 2, 2, 2, 4, 3, 5, 4, 4}
>



-- 
majort at cox-internet.com
Bobby R. Treat



  • Prev by Date: RE: Help-directional fields
  • Next by Date: Re: Opinions about the "Oneliners"
  • Previous by thread: Q: exporting an animated GIF
  • Next by thread: Re: Re: Need a nice way to do this