10 lines
239 B
Racket
10 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))
|