| 12345678910111213141516171819202122232425262728 |
- ; Part of Scheme 48 1.9. See file COPYING for notices and license.
- ; Authors: Richard Kelsey
- (define (test in out)
- (write-string '"Type in two numbers: " out)
- (let* ((i (read-integer in))
- (j (read-integer in)))
- (write-string '"A = " out)
- (write-integer i out)
- (newline out)
- (write-string '"B = " out)
- (write-integer j out)
- (newline out)
- (write-string (if (and (< i j)
- (or (= (remainder i '2) '0)
- (= (remainder j '2) '0)))
- '"A < B and A or B is even"
- '"A >= B or A and B are both odd")
- out)
- (newline out)
- '0))
- (test (current-input-port) (current-output-port))
|
