curly/code/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.txt

68 lines
275 B
Plaintext
Raw Normal View History

>main
gto
:gcd
=v
=u
$u
$v
>gcd-loop
gge
$u
=t
$v
=u
$t
=v
:gcd-loop
$v
0
>gcd-ret
gle
$v
=t
$u
$v
mod
=v
$t
=u
>gcd-loop
gto
:gcd-ret
$u
ret
:lcm
=b
=a
$a
$a
$b
>gcd
fun
div
$b
mul
ret
:main
214
68
>lcm
fun
\-
cat
765
27
>gcd
fun
cat
\-
cat
56
78
>lcm
fun
cat
rev
\.txt
cat