home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / zxamples.lzh / QUICK.APP < prev    next >
Text File  |  1991-08-21  |  896b  |  42 lines
  1. "QUICK SORT"
  2. L(1)=1:R(1)=NI:P2=1
  3. DO
  4.   LONG IF L(P2)<R(P2)
  5.     Z=L(P2):J=R(P2)
  6.     SA=SA(J):M4=(Z+J)>>1
  7.     LONG IF J-Z>=6
  8.       SZ=SA(Z):SM=SA(M4)
  9.       LONG IF SA<= SZ OR SA>=SM OR SA>=SZ OR SA<= SM
  10.         LONG IF SZ>=SM OR SZ<= SA OR SZ<=SM OR SZ>=SA
  11.           SWAP SA(M4),SA(J)
  12.         XELSE
  13.           SWAP SA(Z),SA(J)
  14.         END IF
  15.         SA = SA(J)
  16.       END IF
  17.     END IF
  18.     WHILE Z<J
  19.       WHILE SA(Z) < SA
  20.         Z=Z+1
  21.       WEND
  22.       DO
  23.         J=J-1
  24.       UNTIL Z>= J OR SA>= SA(J)
  25.       LONG IF Z<J
  26.         SWAP SA(Z),SA(J)
  27.       END IF
  28.     WEND
  29.     J=R(P2):SWAP SA(Z),SA(J)
  30.     LONG IF Z-L(P2)<R(P2)-Z
  31.       L(P2+1)=L(P2): R(P2+¯1¯)=Z-1:L(P2)=Z+1
  32.     XELSE
  33.       L(P2+1)=Z+1:R(P2+1)=R(P2):R(P2)=Z-1
  34.     END IF
  35.     P2=P2+1
  36.   XELSE
  37.     P2=P2-1
  38.   END IF
  39. UNTIL P2<=0
  40. RETURN : REM SORT FINISHED HERE
  41. END
  42. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə