forked from Orchid/orchid
Most files suffered major changes
- Less ambiguous syntax - Better parser (Chumsky only does tokenization now) - Tidy(|ier) error handling - Facade for simplified embedding - External code grouped in (fairly) self-contained Systems - Dynamic action dispatch - Many STL additions
This commit is contained in:
@@ -1,14 +1,15 @@
|
||||
import std::(proc::*, to_float, to_string, io::(readline, print))
|
||||
import std::(proc::*, to_float, to_string, panic, str::char_at)
|
||||
|
||||
export main := do{
|
||||
export const main := do{
|
||||
cps print "left operand: ";
|
||||
cps data = readline;
|
||||
cps data = readln;
|
||||
let a = to_float data;
|
||||
cps print "operator: ";
|
||||
cps op = readline;
|
||||
cps print ("you selected \"" ++ op ++ "\"\n");
|
||||
cps op = readln;
|
||||
let op = char_at op 0;
|
||||
cps println ("you selected \"" ++ op ++ "\"");
|
||||
cps print "right operand: ";
|
||||
cps data = readline;
|
||||
cps data = readln;
|
||||
let b = to_float data;
|
||||
let result = (
|
||||
if op == "+" then a + b
|
||||
@@ -17,6 +18,6 @@ export main := do{
|
||||
else if op == "/" then a / b
|
||||
else (panic "Unsupported operation")
|
||||
);
|
||||
cps print ("Result: " ++ to_string result ++ "\n");
|
||||
cps println ("Result: " ++ to_string result);
|
||||
0
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user