Quicksort qbasic быстрая сортировка половиной и МЫ

DIM AS UInteger MaxSize = 2000000
DIM SHARED NumArray(MaxSize) AS UInteger
RANDOMIZE TIMER
SUB Qsort(start AS INTEGER,Finish AS UInteger)
  DIM AS UInteger I=start,J=Finish,X=NumArray(INT((I+J)/2)),A
  WHILE  I <= J
    WHILE NumArray(I) < X
      I+=1
    WEND
    WHILE NumArray(J) > X
      J-=1
    WEND
    IF I<=J THEN
      A = NumArray(I)
      NumArray(I) = NumArray(J)
      NumArray(J) = A
      I+=1
      J-=1
    EndIf
  WEND
  IF J > Start THEN Qsort(start,J)
  IF I < Finish THEN Qsort(I,Finish)
END SUB
 
SUB ASM_QSort(a() AS INTEGER, l AS INTEGER, r AS INTEGER)
  DIM AS INTEGER i=l, j=r, x=a((l+r)\2)
Asm
 QS_L0:              'Do
  mov ecx, [a]
  mov ecx, [ecx]
 QS_L1:
  mov ebx, [i]
  lea edi, [ecx+ebx*4]
  mov ebx, [x]
  cmp [edi], ebx     'While a(i)<x
  jge QS_L2
  inc dword ptr [i]  'i+=1
  jmp QS_L1
 QS_L2:
  mov ebx, [j]
  lea esi, [ecx+ebx*4]
  mov eax, [esi]
  cmp [x], eax       'While x<a(j)
  jge QS_L3
  dec dword ptr [j]  'j-=1
  jmp QS_L2
 QS_L3:
  cmp [i], ebx       'If i<=j Then
  jg QS_L4
  mov eax, [edi]     'Swap a(i), a(j)
  xchg eax, [esi]
  mov [edi], eax 
  inc dword ptr [i]  'i+=1
  dec dword ptr [j]  'j-=1
 QS_L4:
  cmp [i], ebx       'Loop Until i>j
  jle QS_L0
END Asm 
  IF l<j THEN ASM_QSort(a(), l, j)
  IF i<r THEN ASM_QSort(a(), i, r)
END SUB
 
SUB RapidSort (Item()AS INTEGER, LoElement AS INTEGER, HiElement AS INTEGER)
  DIM AS INTEGER n, wert, nptr, arr, rep, LoVal, HiVal
  LoVal=Item(LoElement)
  HiVal=Item(HiElement)
  FOR n=LoElement TO HiElement
    IF LoVal> Item(n) THEN LoVal=Item(n)
    IF HiVal< Item(n) THEN HiVal=Item(n)
  NEXT
  REDIM SortArray(LoVal TO HiVal) AS INTEGER
  FOR n=LoElement TO HiElement
    wert=Item(n)
    SortArray(wert)=SortArray(wert)+1
  NEXT
  nptr=LoElement-1
  FOR arr=LoVal TO HiVal
    rep=SortArray(arr)
    FOR n=1 TO rep
      nptr=nptr+1
      Item(nptr)=arr
    NEXT
  NEXT
  ERASE SortArray
END SUB
 
DIM t AS DOUBLE
PRINT "Qsort ";
FOR I AS INTEGER=1 TO MaxSize
  NumArray(I) = INT(RND*MaxSize)
NEXT
t=TIMER
Qsort(1,MaxSize)
?Timer-t
 
PRINT "ASM_QSort ";
FOR I AS INTEGER=1 TO MaxSize
  NumArray(I) = INT(RND*MaxSize)
NEXT
t=TIMER
ASM_QSort(NumArray(),1,MaxSize)
?Timer-t
 
PRINT "RapidSort ";
FOR I AS INTEGER=1 TO MaxSize
  NumArray(I) = INT(RND*MaxSize)
NEXT
t=TIMER
RapidSort(NumArray(),1,MaxSize)
?Timer-t
SLEEP