Revision as of 00:08, 2 February 2020 (view source) rosettacode>Gerard Schildberger m (→‎{{header\|REXX}}: the two integers were "backwards".) ← Older edit		Revision as of 17:52, 6 February 2020 (view source) rosettacode>Crc m (→‎{{header\|Retro}}) Newer edit →
Line 4,012: Retro's arithmetic functions are based on those in [[Forth]]. The example is an adaption of the one from Forth. <lang Retro>: arithmetic ( ab- ) over ~~"\na~~ '\na_______= _%d"n ~~puts~~s:put dup ~~"\nb~~ '\nb_______= _%d"n ~~puts~~s:put ~~2over~~dup-pair + "'\na na_+ b _b___= _%d"n ~~puts~~s:put ~~2over~~dup-pair - "'\na na_- b _b___= _%d"n ~~puts~~s:put ~~2over~~dup-pair * "'\na na_* b _b___= _%d"n ~~puts~~s:put /mod ~~"\na / b~~ '\na_/_b___= _%d"n ~~puts~~s:put ~~"\na~~ ~~mod~~ b '\na_mod_b_= _%dn\n" ~~puts~~s:put ;</lang> =={{header\|REXX}}==

Arithmetic/Integer: Difference between revisions

Arithmetic/Integer (view source)