mirror of
https://github.com/Dummi26/mers.git
synced 2025-03-10 14:13:52 +01:00
31 lines
708 B
Plaintext
31 lines
708 B
Plaintext
"- Calculator -".println
|
|
"Type =<num> to set the value to that number.".println
|
|
"Type +<num>, -<num> or *<num> to change the value.".println
|
|
"Type exit to exit.".println
|
|
|
|
current := 0.0
|
|
|
|
{() -> {
|
|
("[ ", current, " ]").concat.println
|
|
input := ().read_line.trim
|
|
num := (
|
|
(input, 1).substring.trim.parse_float,
|
|
(
|
|
() -> 0.0,
|
|
val -> val
|
|
)
|
|
).try
|
|
mode := (input, 0, 1).substring
|
|
if (mode, "+").eq {
|
|
¤t = (current, num).sum
|
|
} else if (mode, "-").eq {
|
|
¤t = (current, (num, -1).product).sum
|
|
} else if (mode, "*").eq {
|
|
¤t = (current, num).product
|
|
} else if (mode, "=").eq {
|
|
¤t = num
|
|
} else if (input, "exit").eq {
|
|
(())
|
|
}
|
|
}}.loop
|