23 lines
484 B
Common Lisp
23 lines
484 B
Common Lisp
|
(setf a '(1 2 3 4))
|
|||
|
|
(setf b '(2 3 4 5))
|
|||
|
|
|
|||
|
|
(format t "sets: ~a ~a~%" a b)
|
|||
|
|
|
|||
|
|
;;; element
|
|||
|
|
(loop for x from 1 to 6 do
|
|||
|
|
(format t (if (member x a)
|
|||
|
|
"~d ∈ A~%"
|
|||
|
|
"~d ∉ A~%") x))
|
|||
|
|
|
|||
|
|
(format t "A ∪ B: ~a~%" (union a b))
|
|||
|
|
(format t "A ∩ B: ~a~%" (intersection a b))
|
|||
|
|
(format t "A \\ B: ~a~%" (set-difference a b))
|
|||
|
|
(format t (if (subsetp a b)
|
|||
|
|
"~a ⊆ ~a~%"
|
|||
|
|
"~a ⊈ ~a~%") a b)
|
|||
|
|
|
|||
|
|
(format t (if (and (subsetp a b)
|
|||
|
|
(subsetp b a))
|
|||
|
|
"~a = ~a~%"
|
|||
|
|
"~a ≠ ~a~%") a b)
|