hmmm......goto wins, but why is your system only doing less than a million
loops per second?  The slowest I got on my PC was 13 million loops per
second, and the fastest was 15.3 MLPS.

Also, do you have users actually processing?  My system is for me only and
therefore is more consistent when testing speed.

I agree that the speed really doesn't matter a whole lot.  In 10 years we'll
all be laughing at how slow our systems were in 2004.

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Monday, December 13, 2004 11:32
To: [EMAIL PROTECTED]
Subject: RE: [U2] LOOP or GOTO on READNEXT


Allen E. Elwood <[EMAIL PROTECTED]> wrote on 13 Dec 2004 09:36:42 -0800

> I didn't include the delete statement because what you
> really wanted to test was the LOOP/REPEAT vs. the GO
> construct.  Guess what?  After doing four consecutive runs
> and picking the fastest of each four, LOOP/REPEAT wins!!!!!!
> ...
> So does this end the GOTO holy war?
> Less Filling, Tastes Better, Goes Faster???
> ;-)

Ummm... no.  Using UniData 6.0 on AIX 5.1 I tested a similar program with a
tighter GOTO loop:

01: * Test Loop Speeds
02: *
03:    CTR = 0
04:    ETIME = TIME() + 5
05:    LOOP WHILE TIME() < ETIME DO
06:       CTR += 1
07:    REPEAT
08:    PRINT "While ":CTR
09: *
10:    CTR = 0
11:    ETIME = TIME() + 5
12: 10 CTR += 1
13:    IF TIME() < ETIME THEN GOTO 10
14:    PRINT "Go To ":CTR

I also wrote a separate program with lines 2-9 above after line 14, so I
could test if the order of execution made a difference.  I ran each program
four times, with the following results ("W" indicates "Winner" :->)

------ Go To First -----   ------ While First -----
Go To Count  While Count   Go To Count  While Count
-----------  -----------   -----------  -----------
  769730 W     752380        667050 W     458545
  655809       734709 W      747373 W     592827
  576565       688953 W      785676 W     611628
  629807       748265 W      714679 W     564908

The second loop for whatever reason seems to have an advantage.  Overall, I
suspect there isn't a lot of difference.

--Tom Pellitieri
  Century Equipment
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to