mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
6 lines
85 B
Forth
6 lines
85 B
Forth
# example|GreatestCommonDivisor
|
|
|
|
~~~
|
|
:gcd (ab-n)
|
|
[ tuck mod dup ] while drop ;
|
|
~~~
|