28 lines
701 B
Plaintext
28 lines
701 B
Plaintext
10 ' Remove Duplicates
|
|
20 OPTION BASE 1
|
|
30 LET MAXI% = 7
|
|
40 DIM D(7), R(7): ' data, result
|
|
50 ' Set the data.
|
|
60 FOR I% = 1 TO 7
|
|
70 READ D(I%)
|
|
80 NEXT I%
|
|
90 ' Remove duplicates.
|
|
100 LET R(1) = D(1)
|
|
110 LET LRI% = 1: ' last index of result
|
|
120 LET P% = 1: ' position
|
|
130 WHILE P% < MAXI%
|
|
140 LET P% = P% + 1
|
|
150 LET ISNEW = 1: ' is a new number?
|
|
160 LET RI% = 1: ' current index of result
|
|
170 WHILE (RI% <= LRI%) AND ISNEW
|
|
180 IF D(P%) = R(RI%) THEN LET ISNEW = 0
|
|
190 LET RI% = RI% + 1
|
|
200 WEND
|
|
210 IF ISNEW THEN LET LRI% = LRI% + 1: LET R(LRI%) = D(P%)
|
|
220 WEND
|
|
230 FOR RI% = 1 TO LRI%
|
|
240 PRINT R(RI%)
|
|
250 NEXT RI%
|
|
260 END
|
|
1000 DATA 1, 2, 2, 3, 4, 5, 5
|