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
$u
ret
:main
4
16
:lcm
=b
=a
$a
$b
>gcd
fun
=gcd
$a
$gcd
div
$b
mul
ret
:main
21
6
>lcm
fun
end