9 lines
125 B
Forth
9 lines
125 B
Forth
# example|LeastCommonMultiple
|
|
|
|
~~~
|
|
:gcd (ab-n)
|
|
[ tuck mod dup ] while drop ;
|
|
|
|
:lcm (ab-n)
|
|
dup-pair gcd [ * ] dip / ;
|
|
~~~
|