Deleting iteration strings

[Alireza]

Hi

I have a fact which contains multifield value(strings), as you see in
the following fact (A B C B D A) there are two repeated strings (A ,
B), i wanna remove them. I mean my fact becomes like this: (A B C D).
There isn't any function to do it! I wanna write a rule which do this
work by a multislot variable. Is there any way to do it?
Any help is appreciated.

Thanks

(deffacts init-facts
(string (in A B C B D A ))
)

[CLIPS Support]

CLIPS>
(deffunction remove-duplicates (?v)
(bind ?rv (create$))
(progn$ (?s ?v)
(if (not (member$ ?s ?rv))
then
(bind ?rv (create$ ?rv ?s))))
?rv)
CLIPS> (remove-duplicates (create$ A B C B D A))
(A B C D)
CLIPS>

[Alireza]

Thanks a lot clips support