added function test with gcd calculation

This commit is contained in:
Bob Polis
2020-09-09 12:35:32 +02:00
parent 41c83877a7
commit 79715ad9df
2 changed files with 41 additions and 2 deletions

39
code/gcd.txt Normal file
View File

@ -0,0 +1,39 @@
>main
gto
:gcd
=v
=u
$u
$v
>loop
gge
$u
=t
$v
=u
$t
=v
:loop
$v
0
>ret
gle
$v
=t
$u
$v
mod
=v
$t
=u
>loop
gto
:ret
$u
ret
:main
4
16
>gcd
fun
end