Arithmetic/Integer: Difference between revisions
Add min
(Add min) |
|||
Line 2,637:
end</lang>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>(concat dup -> ' prepend "$1 -> $2" swap % puts!) :show
("Enter an integer" ask int) 2 times ' prepend
('+ '- '* 'div 'mod) quote-map ('show concat) map cleave</lang>
{{out}}
<pre>
Enter an integer: -3
Enter an integer: 5
(-3 5 +) -> 2
(-3 5 -) -> -8
(-3 5 *) -> -15
(-3 5 div) -> 0
(-3 5 mod) -> -3
</pre>
=={{header|МК-61/52}}==
| |||