Set of real numbers: Difference between revisions
Content added Content deleted
(Add Common Lisp implementation) |
m (minor edits) |
||
Line 163: | Line 163: | ||
(deftype set<= (a b) `(real (,a) ,b)) |
(deftype set<= (a b) `(real (,a) ,b)) |
||
(deftype set-union ( |
(deftype set-union (s1 s2) `(or ,s1 ,s2)) |
||
(deftype set-intersection ( |
(deftype set-intersection (s1 s2) `(and ,s1 ,s2)) |
||
(deftype set-diff ( |
(deftype set-diff (s1 s2) `(and ,s1 (not ,s2))) |
||
(defun in-set-p (x set) |
(defun in-set-p (x set) |