RosettaCodeData/Task/Logical-operations/XLISP/logical-operations.xlisp
2016-12-05 23:44:36 +01:00

4 lines
135 B
Text

(defun logical-functions (a b)
(print `(a and b = ,(and a b)))
(print `(a or b = ,(or a b)))
(print `(not a = ,(not a))) )