18 lines
492 B
Plaintext
18 lines
492 B
Plaintext
( enter
|
|
= put$"Enter two integer numbers, separated by space:"
|
|
& get':(~/#?k_~/#?m|quit:?k)
|
|
| out
|
|
$ "You must enter two integer numbers! Enter \"quit\" if you don't know how to do that."
|
|
& !enter
|
|
)
|
|
& !enter
|
|
& !k:~quit
|
|
& out$("You entered" !k and !m ". Now look:")
|
|
& out$("Sum:" !k+!m)
|
|
& out$("Difference:" !k+-1*!m)
|
|
& out$("Product:" !k*!m)
|
|
& out$("Integer division:" div$(!k.!m))
|
|
& out$("Remainder:" mod$(!k.!m))
|
|
& out$("Exponentiation:" !k^!m)
|
|
& done;
|