9 lines
242 B
Scheme
9 lines
242 B
Scheme
(define (remove-duplicates l)
|
|
(cond ((null? l)
|
|
'())
|
|
((member (car l) (cdr l))
|
|
(remove-duplicates (cdr l)))
|
|
(else
|
|
(cons (car l) (remove-duplicates (cdr l))))))
|
|
|
|
(remove-duplicates '(1 2 1 3 2 4 5))
|