mirror of
https://github.com/Dummi26/mers.git
synced 2025-03-10 14:13:52 +01:00
27 lines
595 B
Plaintext
27 lines
595 B
Plaintext
gcd := vals -> {
|
|
loop {
|
|
(a, b) := vals
|
|
if a.eq(b)
|
|
(a)
|
|
else if b.subtract(a).signum.eq(1)
|
|
&vals = (a, b.subtract(a))
|
|
else
|
|
&vals = (a.subtract(b), b)
|
|
}
|
|
}
|
|
|
|
get_num := () -> {
|
|
loop {
|
|
line := ().read_line.try((line) -> line.trim, () -> "")
|
|
line.parse_float.try(
|
|
(n) -> (n)
|
|
() -> ("Error: '", line, "' not a number!").concat.println
|
|
)
|
|
}
|
|
}
|
|
|
|
("gcd of 899 and 2900 is ", (899, 2900).gcd).concat.println // 29
|
|
"Now type two numbers!".println
|
|
(a, b) := (().get_num, ().get_num)
|
|
("gcd of ", a, " and ", b, " is ", (a, b).gcd).concat.println
|