/ ( n1 n2 n3 -- n4=(n1n2)/n3 )

published: 28 January 2023 / updated 28 January 2023

Multiply n1 by n2 producing the intermediate double-cell result d. Divide d by n3 giving the single-cell quotient n4.

Example:

5000 1000 4000 */ .    \ display    1250

Multiply n1 by n2 producing the intermediate double-cell result d. Divide d by n3 giving the single-cell quotient n4.

WARNING

In our articles, reference is made to different versions of the language FORTH (AmForth, FlashForth, GForth ...).

All of these versions are licensed GNU. Ref: Licence publique générale GNU

So you can download, install, use all these versions on your computer and / or on an ARDUINO card with no transfer of fees and no special conditions.

The GNU/GPL license does not give you the right to monetize the source and executable codes marked under this license.

You are authorized to monetize your own achievements, articles, books if these products are the fruit of your labors.

The GNU / GPL license exploits the principle of sharing and collaboration. If you profit know-how in files marked GNU, reciprocity is expected from you by sharing your achievements, even modest.

*/ ( n1 n2 n3 -- n4=(n1*n2)/n3 )

Example:

/ ( n1 n2 n3 -- n4=(n1n2)/n3 )