9 lines
200 B
Text
9 lines
200 B
Text
(de logic (A B)
|
|
(prin "A AND B is ")
|
|
(println (and A B))
|
|
(prin "A OR B is ")
|
|
(println (or A B))
|
|
(prin "A XOR B is ")
|
|
(println (xor A B))
|
|
(prin "NOT A is ")
|
|
(println (not A)) )
|