Arithmetic/Integer: Difference between revisions

LSE64
No edit summary
(LSE64)
Line 157:
format "Remainder: %\n" (mod x y)
 
=={{header|LSE64}}==
over : 2 pick
2dup : over over
arithmetic : \
" A=" ,t over , sp " B=" ,t dup , nl \
" A+B=" ,t 2dup + , nl \
" A-B=" ,t 2dup - , nl \
" A*B=" ,t 2dup * , nl \
" A/B=" ,t 2dup / , nl \
" A%B=" ,t % , nl
 
=={{header|Pascal}}==
Anonymous user