bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Fix RSORT

Browse Source
This commit is contained in:
otya128
2017-07-28 23:08:09 +09:00
parent 3eae20517a
commit e405dc66e4
3 changed files with 49 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SMILEBASIC/TEST.txt
View File

@@ -57,6 +57,8 @@ DEF SORTTEST
RSORT B$
ASSERT__ B$[3]=="0","RSORT2"
SORTTEST2
STABLESORTTEST
STABLERSORTTEST
END
DEF SORTTEST2
DIM A[10]
@@ -70,6 +72,39 @@ DEF SORTTEST2
ASSERT__ A[8]==-1,"RSORT"
ASSERT__ B[8]==12345,"RSORT"
END
DEF STABLESORTTEST
DIM A[0],B[0]
PUSH A,2:PUSH B,3
PUSH A,3:PUSH B,4
PUSH A,1:PUSH B,1
PUSH A,1:PUSH B,2
SORT A,B
ASSERT__ A[0]==1,"STABLESORT"
ASSERT__ A[1]==1,"STABLESORT"
ASSERT__ A[2]==2,"STABLESORT"
ASSERT__ A[3]==3,"STABLESORT"
ASSERT__ B[0]==1,"STABLESORT"
ASSERT__ B[1]==2,"STABLESORT"
ASSERT__ B[2]==3,"STABLESORT"
ASSERT__ B[3]==4,"STABLESORT"
END
DEF STABLERSORTTEST
DIM A[0],B[0]
PUSH A,2:PUSH B,3
PUSH A,3:PUSH B,4
PUSH A,1:PUSH B,1
PUSH A,1:PUSH B,2
RSORT A,B
ASSERT__ A[0]==3,"STABLESORT"
ASSERT__ A[1]==2,"STABLESORT"
ASSERT__ A[2]==1,"STABLESORT"
ASSERT__ A[3]==1,"STABLESORT"
ASSERT__ B[0]==4,"STABLESORT"
ASSERT__ B[1]==3,"STABLESORT"
ASSERT__ B[2]==2,"STABLESORT"
ASSERT__ B[3]==1,"STABLESORT"
END
?"SORTTEST"
SORTTEST
?"SWAPTEST"