added lcm function

This commit is contained in:
Bob Polis 2020-09-12 18:31:58 +02:00
parent ce44657a98
commit 159feb0dac

View File

@ -31,9 +31,23 @@ gto
:gcd-ret :gcd-ret
$u $u
ret ret
:main :lcm
4 =b
16 =a
$a
$b
>gcd >gcd
fun fun
=gcd
$a
$gcd
div
$b
mul
ret
:main
21
6
>lcm
fun
end end