forked from Orchid/orchid
25 lines
587 B
Plaintext
25 lines
587 B
Plaintext
import prelude::*
|
|
import std::(parse_float, to_string)
|
|
import std::(readline, print)
|
|
import std::(concatenate)
|
|
|
|
export main := do{
|
|
cps data = readline;
|
|
let a = parse_float data;
|
|
cps op = readline;
|
|
cps print ("\"" ++ op ++ "\"\n");
|
|
cps data = readline;
|
|
let b = parse_float data;
|
|
let result = (
|
|
if op == "+" then a + b
|
|
else if op == "-" then a - b
|
|
else if op == "*" then a * b
|
|
else if op == "/" then a / b
|
|
else "Unsupported operation" -- dynamically typed shenanigans
|
|
);
|
|
cps print (to_string result ++ "\n");
|
|
0
|
|
}
|
|
|
|
-- export main := 1 do { 1 ; 2 } 3
|