(Nils' Scheme Snippets)

(union . list) => list

Purpose

Compute the union of a number of sets.

Arguments

a*	sets

Dependencies

list-to-set

Example

(union '(v w x) '(w x y) '(x y z)) => (v w x y z)

(load "list-to-set.scm")

(define (union . a*)
  (list->set (apply append a*)))