Anonymous user
Arithmetic/Integer: Difference between revisions
m
→{{header|Piet}}: added line breaks, final push command
(Added Piet Example) |
m (→{{header|Piet}}: added line breaks, final push command) |
||
Line 1,198:
(prinl "Power " (** A B)) )</lang>
=={{header|Piet}}==
[[File:PietArithmaticInteger.png]]<br>
<code>
command stack<br>
in(int) A<br>
duplicate AA<br>
duplicate AAA<br>
duplicate AAAA<br>
duplicate AAAAA<br>
in(int) BAAAAA<br>
duplicate BBAAAAA<br>
duplicate BBBAAAAA<br>
duplicate BBBBAAAAA<br>
duplicate BBBBBAAAAA<br>
push 9 9BBBBBAAAAA<br>
push 1 19BBBBBAAAAA<br>
roll BBBBAAAABA<br>
push 7 7BBBBAAAABA<br>
push 1 17BBBBAAAABA<br>
roll BBBAAABABA<br>
push 5 5BBBAAABABA<br>
push 1 15BBBAAABABA<br>
roll BBAABABABA<br>
push 3 3BBAABABABA<br>
push 1 13BBAABABABA<br>
roll BABABABABA<br>
add (A+B)BABABABA<br>
out(int) BABABABA<br>
sub (A-B)BABABA<br>
out(int) BABABA<br>
mult (A*B)BABA<br>
out(int) BABA<br>
divide (A/B)BA<br>
out(int) BA<br>
mod (A%B)<br>
out(int) NULL<br>
push 1 1<br>
exit</code><br>
How rounding is handled is up to the interpreter, but I believe the intent was round towards 0.
=={{header|PL/I}}==
<lang PL/I>
| |||