5 lines
94 B
Text
5 lines
94 B
Text
(define gcd
|
|
A 0 -> A
|
|
A B -> (gcd B (MOD A B)))
|
|
|
|
(define lcm A B -> (/ (* A B) (gcd A B)))
|