Тест 1

Тип BYTE
QuickSort - 0.094 sec; Array Sort - 0.344 sec

Тип INTEGER
QuickSort - 0.11 sec; Array Sort - 0.515 sec

Тип LONG
QuickSort - 0.172 sec; Array Sort - 0.484 sec

Тест 2

Тип BYTE
QuickSort - 0.078 sec; Array Sort - 0.36 sec

Тип INTEGER
QuickSort - 0.125 sec; Array Sort - 0.453 sec

Тип LONG
QuickSort - 0.141 sec; Array Sort - 0.484 sec

Тест 3

Тип BYTE
QuickSort - 0.079 sec; Array Sort - 0.375 sec

Тип INTEGER
QuickSort - 0.141 sec; Array Sort - 0.5 sec

Тип LONG
QuickSort - 0.188 sec; Array Sort - 0.516 sec

#COMPILE EXE
#DIM ALL
'-----------------------
#INCLUDE "win32api.inc"
#INCLUDE "qsortasm.inc"
'-----------------------
FUNCTION PBMAIN
   LOCAL hWnd AS DWORD
   LOCAL sRes AS STRING
   LOCAL qTimer AS QUAD
   LOCAL T1     AS QUAD
   LOCAL Counter AS LONG
   LOCAL tmp AS LONG
   
   IALOG NEW 0, "Pleas wait...Comparison PB & CyRax sort method" _
                 ,,, 190, 1 TO hWnd
   IALOG SHOW MODELESS hWnd

'BYTE -------------------CyRax-------------------
 REDIM Test1(524288) AS BYTE
 RANDOMIZE 1234567 ' will produce same random values for both method
 FOR Counter=0 TO UBOUND(Test1)
    Test1(Counter)=RND(1,255)
 NEXT Counter

SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 QuickSort 1,1, VARPTR(Test1(0)),LBOUND(Test1),UBOUND(Test1)
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes="QuickSort BYTE="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."

 'BYTE -----------------PB------------------------
 RANDOMIZE 1234567
 FOR Counter=0 TO UBOUND(Test1)
    Test1(Counter)=RND(1,255)
 NEXT Counter
 
SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 ARRAY SORT Test1()
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes=sRes+$CRLF+"PBSort BYTE="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."

 'INTEGER -------------------CyRax-------------------
 REDIM Test2(524288) AS INTEGER
 RANDOMIZE 1234567
 FOR Counter=0 TO UBOUND(Test2)
    Test2(Counter)=RND(1,65535)
 NEXT Counter

SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 QuickSort 2,1, VARPTR(Test2(0)),LBOUND(Test2),UBOUND(Test2)
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes=sRes+$CRLF+$CRLF+"QuickSort INTEGER="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."
 'INTEGER -----------------PB------------------------
 RANDOMIZE 1234567
 FOR Counter=0 TO UBOUND(Test2)
    Test2(Counter)=RND(1,65535)
 NEXT Counter

SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 ARRAY SORT Test2()
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes=sRes+$CRLF+"PBArray Sort INTEGER="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."
 'MsgBox Str$(Timer-T1) & " sec.",,"Array Sort INTEGER"

 'LONG -------------------CyRax-------------------
 REDIM Test4(524288) AS LONG
 RANDOMIZE 1234567
 FOR Counter=0 TO UBOUND(Test4)
    Test4(Counter)=RND(-2000000,2000000)
 NEXT Counter

SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 QuickSort 4,1, VARPTR(Test4(0)),LBOUND(Test4),UBOUND(Test4)
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes=sRes+$CRLF+$CRLF+"QuickSort LONG="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."
'LONG -----------------PB------------------------
 RANDOMIZE 1234567
 FOR Counter=0 TO UBOUND(Test4)
    Test4(Counter)=RND(-2000000,2000000)
 NEXT Counter

SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
 QueryPerformanceCounter(BYVAL VARPTR (T1))
 ARRAY SORT Test4()
 QueryPerformanceCounter(BYVAL VARPTR (qTimer))
SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)

 sRes=sRes+$CRLF+"PBArray Sort LONG="+FORMAT$((qTimer-T1)/1000000,"##.######" & " sec."

'------------------------------------------------
 SendMessage (hWnd,%WM_SYSCOMMAND,%SC_CLOSE,0)
 OPEN "ComparePB&CyRaxSortSpeed.txt" FOR OUTPUT AS #1
    PRINT #1,"Result of sort speed comparison PB & CyRax"+ _
                   $CRLF+REPEAT$(40,"*"+$CRLF+$CRLF
    PRINT #1, sRes+$CRLF+REPEAT$(40,"*"
 CLOSE #1
 ? sRes,,"Result of sort speed comparison PB & CyRax"
END FUNCTION  

Test1:
QuickSort BYTE=0.343834 sec.
PBSort BYTE=1.088841 sec.

QuickSort INTEGER=0.426523 sec.
PBArray Sort INTEGER=1.431078 sec.

QuickSort LONG=0.494382 sec.
PBArray Sort LONG=1.393122 sec.

Test2:
QuickSort BYTE=0.345421 sec.
PBSort BYTE=1.085049 sec.

QuickSort INTEGER=0.426215 sec.
PBArray Sort INTEGER=1.431569 sec.

QuickSort LONG=0.493927 sec.
PBArray Sort LONG=1.393133 sec.

%ln_BYTE=1
%ln_WORD=2
%ln_DWORD=4

%s_UNSIGNED=0
%s_SIGNED=1

Может кто подкинет нормальный алгоритм сравнения двух строк?

#COMPILE EXE
#DIM ALL
#REGISTER NONE

FUNCTION PBMAIN () AS LONG
   LOCAL str1 AS STRING        : str1 = "QWERTYUIOP"
   LOCAL str2 AS STRING        : str2 = "QWERTYUIOP"
   LOCAL lenStr1,dwRes AS DWORD
   LOCAL addrStr1,addrStr2 AS DWORD

   addrStr1=STRPTR(str1)
   addrStr2=STRPTR(str2)
   lenStr1=LEN(str1)

   IF lenStr1<>0 THEN
      ! mov esi,addrStr1
      ! mov edi,addrStr2
      ! mov ecx,lenStr1
      ! inc ecx
      ! repe cmpsb     ; exit if not equal. in ecx wrong position
      ! mov dwRes,ecx  ; if both string equal then ecx=0
      IF dwRes THEN
          ? "ifferent char at position"+STR$(lenStr1-dwRes+1)
      ELSE
          ? "Strings is equal"
      END IF
   ELSE
      ? "Source string can't be empty"
   END IF
END FUNCTION

! cld