_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

QUICKSORT.L

FILE INFORMATION

FILENAME(S): QUICKSORT.L

FILE TYPE(S): SEQ

FILE SIZE: 344b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

d54911a983350cb98d9b7159810dbf695e51297e5b5f20ba8eb42aca446738b1

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL QUICKSORT.L SEQ hedning, Mattias H00r 9 5 DOWNLOAD FILE
CCS COMAL QUICKSORT.L SEQ hedning, Mattias H00r 9 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 51 55 49 43 4B 53  |9000 PROC QUICKS|
00000010: 4F 52 54 28 52 45 46 20  41 28 29 2C 4D 2C 4E 29  |ORT(REF A(),M,N)|
00000020: 20 43 4C 4F 53 45 44 0D  39 30 32 30 20 50 41 52  | CLOSED.9020 PAR|
00000030: 54 28 4D 2C 4E 2C 4D 2C  4E 29 0D 39 30 33 30 20  |T(M,N,M,N).9030 |
00000040: 45 4E 44 50 52 4F 43 20  51 55 49 43 4B 53 4F 52  |ENDPROC QUICKSOR|
00000050: 54 0D 39 30 34 30 20 2F  2F 0D 39 30 35 30 20 50  |T.9040 //.9050 P|
00000060: 52 4F 43 20 50 41 52 54  28 4C 2C 52 2C 49 2C 4A  |ROC PART(L,R,I,J|
00000070: 29 20 0D 39 30 36 30 20  50 3A 3D 41 28 28 4C 2B  |) .9060 P:=A((L+|
00000080: 52 29 20 44 49 56 20 32  29 0D 39 30 37 30 20 52  |R) DIV 2).9070 R|
00000090: 45 50 45 41 54 20 0D 39  30 38 30 20 57 48 49 4C  |EPEAT .9080 WHIL|
000000A0: 45 20 50 3E 41 28 49 29  20 44 4F 20 49 3A 2B 31  |E P>A(I) DO I:+1|
000000B0: 0D 39 30 39 30 20 57 48  49 4C 45 20 50 3C 41 28  |.9090 WHILE P<A(|
000000C0: 4A 29 20 44 4F 20 4A 3A  2D 31 0D 39 31 30 30 20  |J) DO J:-1.9100 |
000000D0: 49 46 20 49 3C 3D 4A 20  54 48 45 4E 20 53 57 41  |IF I<=J THEN SWA|
000000E0: 50 28 41 28 49 29 2C 41  28 4A 29 29 3B 20 49 3A  |P(A(I),A(J)); I:|
000000F0: 2B 31 3B 20 4A 3A 2D 31  0D 39 31 31 30 20 55 4E  |+1; J:-1.9110 UN|
00000100: 54 49 4C 20 49 3E 4A 0D  39 31 32 30 20 49 46 20  |TIL I>J.9120 IF |
00000110: 4C 3C 4A 20 54 48 45 4E  20 50 41 52 54 28 4C 2C  |L<J THEN PART(L,|
00000120: 4A 2C 4C 2C 4A 29 0D 39  31 33 30 20 49 46 20 49  |J,L,J).9130 IF I|
00000130: 3C 52 20 54 48 45 4E 20  50 41 52 54 28 49 2C 52  |<R THEN PART(I,R|
00000140: 2C 49 2C 52 29 0D 39 31  34 30 20 45 4E 44 50 52  |,I,R).9140 ENDPR|
00000150: 4F 43 20 50 41 52 54 0D                           |OC PART.        |

9000 PROC QUICKSORT(REF A(),M,N) CLOSED.
9020 PART(M,N,M,N).9030 ENDPROC QUICKSOR
T.9040 //.9050 PROC PART(L,R,I,J) .9060 
P:=A((L+R) DIV 2).9070 REPEAT .9080 WHIL
E P>A(I) DO I:+1.9090 WHILE P<A(J) DO J:
-1.9100 IF I<=J THEN SWAP(A(I),A(J)); I:
+1; J:-1.9110 UNTIL I>J.9120 IF L<J THEN
 PART(L,J,L,J).9130 IF I<R THEN PART(I,R
,I,R).9140 ENDPROC PART.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL