30 lines
890 B
Plaintext
30 lines
890 B
Plaintext
100 REM Remove duplicate elements
|
|
110 DIM DataArray(1 TO 7), ResultArray(1 TO 7)
|
|
120 ! Set the data.
|
|
130 FOR I = 1 TO 7
|
|
140 READ DataArray(I)
|
|
150 NEXT I
|
|
160 ! Remove duplicates
|
|
170 LET ResultArray(1) = DataArray(1)
|
|
180 LET LastResultIndex = 1
|
|
190 LET Position = 1
|
|
200 DO WHILE Position < UBOUND(DataArray)
|
|
210 LET Position = Position + 1
|
|
220 LET IsNewNumber = -1
|
|
230 FOR ResultIndex = 1 TO LastResultIndex
|
|
240 IF DataArray(Position) = ResultArray(ResultIndex) THEN
|
|
250 LET IsNewNumber = 0
|
|
260 EXIT FOR
|
|
270 END IF
|
|
280 NEXT ResultIndex
|
|
290 IF IsNewNumber = -1 THEN
|
|
300 LET LastResultIndex = LastResultIndex + 1
|
|
310 LET ResultArray(LastResultIndex) = DataArray(Position)
|
|
320 END IF
|
|
330 LOOP
|
|
340 FOR ResultIndex = 1 TO LastResultIndex
|
|
350 PRINT ResultArray(ResultIndex)
|
|
360 NEXT ResultIndex
|
|
370 DATA 1, 2, 2, 3, 4, 5, 5
|
|
380 END
|