Scheme union of two lists

(define (union a b)
  (cond ((null? b) a)
        ((member (car b) a)
         (union a (cdr b)))
        (else (union (cons (car b) a) (cdr b)))))

(union '(1 2 3) '(2 4 2))

Source: stackoverflow.com

Similar codes

1 vote143 views1 answer
Vim default colour schemes
Scheme
0 vote153 views1 answer
Org.apache.hadoop.fs.unsupportedfilesystemexception: no filesystem for scheme "s3" spark
Scheme
0 vote151 views2 answers
Scheme tmLanguage
Scheme
-3 votes165 views3 answers
Ponzi schemes
Scheme
0 vote147 views1 answer
How to make a list in scheme
Scheme
0 vote154 views1 answer
Kdenlive apt command
Scheme
0 vote151 views1 answer
Kdenlive download ubuntu
Scheme
0 vote148 views1 answer
Request.Scheme request.Path
Scheme
0 vote163 views2 answers
Recursive fibonacci scheme
Scheme
0 vote143 views1 answer
No authenticationScheme was specified, and there was no DefaultChallengeScheme found
Scheme