9 lines
239 B
Racket
9 lines
239 B
Racket
#lang racket
|
|
(define (compare-two-ints a b)
|
|
(define compared
|
|
(cond ((> a b) "is greated than")
|
|
((= a b) "equals")
|
|
((< a b) "is lesser than")))
|
|
(format "~a ~a ~a" a compared b))
|
|
|
|
(compare-two-ints (read) (read))
|