OpenEuphoria

Re: Reverse() was: Win32Lib Update

• Posted by Robert Craig <rds at EMAIL.MSN.COM> Nov 29, 1998
• 419 views

I tweaked mine a bit to eliminate a subtraction.
It now seems to be a tad faster than Hawke's, but they're
close enough that I decided to try various lengths
of sequence.

function reverse5(sequence s)  -- Rob Craig
    object temp
    integer n

    n = length(s)
    for i = 1 to floor(n/2) do
        temp = s[i]
        s[i] = s[n]
        s[n] = temp
        n = n - 1
    end for
    return s
end function

length    reverse2 (Hawke)   reverse5 (Rob)
0                  0.33                         0.25
1                  0.43                         0.25
2                  0.50                         0.48
5                  0.65                         0.60
10                0.84                         0.85
100              5.01                         4.55
1000          62.33                       48.19
10000      830.77                    528.14

Regards,
     Rob Craig
     Rapid Deployment Software
     http://members.aol.com/FilesEu/