41 lines
829 B
Plaintext
41 lines
829 B
Plaintext
INCLUDE "D2:SORT.ACT" ;from the Action! Tool Kit
|
|
|
|
PROC PrintArray(INT ARRAY a INT size)
|
|
INT i
|
|
|
|
Put('[)
|
|
FOR i=0 TO size-1
|
|
DO
|
|
IF i>0 THEN Put(' ) FI
|
|
PrintI(a(i))
|
|
OD
|
|
Put(']) PutE()
|
|
RETURN
|
|
|
|
PROC Test(INT ARRAY a INT size BYTE order)
|
|
PrintE("Array before sort:")
|
|
PrintArray(a,size)
|
|
SortI(a,size,order)
|
|
PrintE("Array after sort:")
|
|
PrintArray(a,size)
|
|
PutE()
|
|
RETURN
|
|
|
|
PROC Main()
|
|
DEFINE ASCENDING="0"
|
|
INT ARRAY
|
|
a(10)=[1 4 65535 0 3 7 4 8 20 65530],
|
|
b(21)=[10 9 8 7 6 5 4 3 2 1 0
|
|
65535 65534 65533 65532 65531
|
|
65530 65529 65528 65527 65526],
|
|
c(8)=[101 102 103 104 105 106 107 108],
|
|
d(12)=[1 65535 1 65535 1 65535 1
|
|
65535 1 65535 1 65535]
|
|
|
|
Put(125) PutE() ;clear screen
|
|
Test(a,10,ASCENDING)
|
|
Test(b,21,ASCENDING)
|
|
Test(c,8,ASCENDING)
|
|
Test(d,12,ASCENDING)
|
|
RETURN
|