6 lines
163 B
Scheme
6 lines
163 B
Scheme
(define (my-compare a b)
|
|
(cond ((< a b) "A is less than B")
|
|
((> a b) "A is greater than B")
|
|
((= a b) "A equals B")))
|
|
|
|
(my-compare (read) (read))
|