retroforth/example/LeastCommonMultiple.forth

# example|LeastCommonMultiple

~~~
:gcd (ab-n)
  [ tuck mod dup ] while drop ;

:lcm (ab-n)
  dup-pair gcd [ * ] dip / ;
~~~
Initial checkin (from 58fa921 in the old git repo) FossilOrigin-Name: d2b8467883db80cb179089e1db1b1ed4dff1f11b4bee7086ee46d83f3ee0136e 2017-10-16 18:09:39 +02:00			`# example\|LeastCommonMultiple`

no longer use ```` for code blocks; this fence sequence will be used for embedded tests in a later update FossilOrigin-Name: dfed0de00b8d63672a882b79c4951cce0076007ef208c063b2f4e54fe9bd08f8 2018-04-25 18:57:28 +02:00			`~~~`
Initial checkin (from 58fa921 in the old git repo) FossilOrigin-Name: d2b8467883db80cb179089e1db1b1ed4dff1f11b4bee7086ee46d83f3ee0136e 2017-10-16 18:09:39 +02:00			`:gcd (ab-n)`
			`[ tuck mod dup ] while drop ;`

			`:lcm (ab-n)`
			`dup-pair gcd [ * ] dip / ;`
no longer use ```` for code blocks; this fence sequence will be used for embedded tests in a later update FossilOrigin-Name: dfed0de00b8d63672a882b79c4951cce0076007ef208c063b2f4e54fe9bd08f8 2018-04-25 18:57:28 +02:00			`~~~`