RosettaCodeData/Task/Remove-duplicate-elements/Yabasic/remove-duplicate-elements.basic
2023-07-01 13:44:08 -04:00

9 lines
218 B
Text

data "Now", "is", "the", "time", "for", "all", "good", "men", "to", "come", "to", "the", "aid", "of", "the", "party.", ""
do
read p$
if p$ = "" break
if not instr(r$, p$) r$ = r$ + p$ + " "
loop
print r$