Date: Thu, 06 Sep 2001 12:11:32 +0100 From: Jasper McCrea Subject: Re: references, slices, voodoo Message-Id: <3B9759E4.D27DAB92@guideguide.com> Bart Lateur wrote: > > Jasper McCrea wrote: > > >Benchmark: running mine, yate, each for at least 3 CPU seconds... > > mine: 5 wallclock secs ( 3.85 usr + 0.01 sys = 3.86 CPU) @ > >18.91/s (n=73) > > yate: 6 wallclock secs ( 3.64 usr + 0.03 sys = 3.67 CPU) @ > >19.89/s (n=73) > > > >was with 4000. > > > >Benchmark: running mine, yate, each for at least 3 CPU seconds... > > mine: 6 wallclock secs ( 3.77 usr + 0.00 sys = 3.77 CPU) @ > >6.63/s (n=25) > > yate: 5 wallclock secs ( 3.67 usr + 0.00 sys = 3.67 CPU) @ > >9.81/s (n=36) > > > >with 8000 > > > >so obviously there's a crossover in speed. > > Eh ,no. Yours is a bit slower all the time. > > -- > Bart. Bart You missed the first post in which I modestly introduced this sub with a becnhmark on a ten element array, and it was quite a bit quicker (around 25%). (I'm not really so stupid as to read only the above, and come to that conclusion) (ok, I am, but in this case I didn't) Jasp -- split//,'019617511192'. '17011111610114101114'. '21011141011840799901'. '17101174'; foreach(0.. # my $#_){$_[$_ # signature is too ++]^=$_[$_ # bignature --]^=$_[$_ ]^=$_[++ $_]if!($_% 2)}$g.=$_ ,chr($g)=~ /(\w)/&&($o.=$1and $g='')foreach@_; print"$o\n"