17 lines
321 B
Plaintext
17 lines
321 B
Plaintext
(define (compare a b)
|
|
(cond ((< a b) "A is less than B")
|
|
((> a b) "A is greater than B")
|
|
((= a b) "A equals B")))
|
|
|
|
(print (compare 1 2))
|
|
; ==> A is less than B
|
|
|
|
(print (compare 2 2))
|
|
; ==> A equals B
|
|
|
|
(print (compare 3 2))
|
|
; ==> A is greater than B
|
|
|
|
; manual user input:
|
|
(print (compare (read) (read)))
|