RosettaCodeData/Task/Remove-duplicate-elements/Run-BASIC/remove-duplicate-elements.basic

15 lines
301 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
a$ = "2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2"
for i = 1 to len(a$)
a1$ = word$(a$,i)
if a1$ = "" then exit for
for i1 = 1 to len(b$)
if a1$ = word$(b$,i1) then [nextWord]
next i1
b$ = b$ + a1$ + " "
[nextWord]
next i
print "Dups:";a$
print "No Dups:";b$