RosettaCodeData/Task/Logical-operations/Scheme/logical-operations.ss
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

10 lines
195 B
Scheme

(define (logic a b)
(display "a and b is ")
(display (and a b))
(newline)
(display "a or b is ")
(display (or a b))
(newline)
(display "not a is ")
(display (not a))
(newline))