1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING.
(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))
|
