5 lines
140 B
Common Lisp
5 lines
140 B
Common Lisp
|
(defun logic (a b)
|
||
|
|
(print "a and b is") (write (and a b))
|
||
|
|
(print "a or b is" ) (write (or a b))
|
||
|
|
(print "not a is" ) (write (not a)))
|