'In this experiment, we only use an array
'ONLY NUMBERS!!!
Code: Select all
DECLARE SUB remove_duplicates(d() AS STRING)
DIM AS INTEGER n,x
RANDOMIZE ,3
x = 999
DIM d(x+1) AS STRING
FOR n = 1 TO x+1
d(n) = LTRIM(STR(INT(RND*2000)))
'print d(n);" "; 'show numbers
NEXT n
PRINT
PRINT "::::::::::::::::::::::::::::::::::::"
remove_duplicates (d())
FOR n = 0 TO UBOUND(d)
IF d(n) <> "" THEN PRINT d(n)
NEXT n
SLEEP
END
SUB remove_duplicates(d() AS STRING)
DIM AS INTEGER j,k
FOR j = 1 TO UBOUND(d)
IF d(j) <> "" THEN
FOR k = j+1 TO UBOUND(d)
IF d(k)= d(j) THEN d(k) = ""
NEXT k
END IF
NEXT j
END SUB