12 lines
145 B
Text
12 lines
145 B
Text
gcd = { a, b |
|
|
true? { a == 0 }
|
|
{ b }
|
|
{ gcd(b % a, a) }
|
|
}
|
|
|
|
lcm = { a, b |
|
|
a * b / gcd(a, b)
|
|
}
|
|
|
|
p lcm(12, 18) # 36
|
|
p lcm(14, 21) # 42
|