Time for an 2014 update…
This commit is contained in:
parent
372c577f83
commit
09687c4926
2520 changed files with 34227 additions and 7318 deletions
17
Task/Arithmetic-Integer/Bracmat/arithmetic-integer.bracmat
Normal file
17
Task/Arithmetic-Integer/Bracmat/arithmetic-integer.bracmat
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
( 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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue