18 lines
493 B
Plaintext
18 lines
493 B
Plaintext
#define system.
|
|
#define system'math.
|
|
#define extensions.
|
|
|
|
// --- Program ---
|
|
|
|
#symbol program =
|
|
[
|
|
#var a := console readLine:(Integer new).
|
|
#var b := console readLine:(Integer new).
|
|
|
|
console writeLine:a:" + ": b:" = ":(a + b).
|
|
console writeLine:a:" - ": b:" = ":(a - b).
|
|
console writeLine:a:" * ": b:" = ":(a * b).
|
|
console writeLine:a:" / ": b:" = ":(a / b). // truncates towards 0
|
|
console writeLine:a:" % ":b:" = ":(a mod:b). // matches sign of first operand
|
|
].
|