8 lines
111 B
Racket
8 lines
111 B
Racket
(define (gcd x y)
|
|
(if (= y 0)
|
|
x
|
|
(gcd y (modulo x y))
|
|
)
|
|
)
|
|
|
|
(writeln (gcd 999 33)) |