Hallo!
�brigens ist der Quicksort wirklich Quick:
<%
option explicit
const mxArray = 9999: dim i, myArray(): redim myArray(mxArray)
for i = 0 to mxArray
myArray(i) = cint(rnd() * mxArray)
Response.Write(myArray(i) & "<br>")
next
call Quicksort(myArray, 0, mxArray)
for i = 0 to mxArray
Response.Write(myArray(i) & "<br>")
next
sub Quicksort(byref a, byval l, byval h)
dim i, j, x, y
i = l: j = h: x = a((l + h) \ 2)
do
do while a(i) < x: i = i + 1: loop
do while a(j) > x: j = j - 1: loop
if i <= j then y = a(i): a(i) = a(j): a(j) = y: i = i +
1: j = j - 1
loop until i > j
if l < j then call Quicksort(a, l, j)
if i < h then call Quicksort(a, i, h)
end sub
%>
Musste jetzt unbedingt wissen, ob ich's noch kann. ;-)
Freundliche Gr��e
Joachim van de Bruck
| [aspdedatabase] als archive@jab.org subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
