10 lines
242 B
Scheme
10 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))
|