/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Pattern Matching/ArithmEval.pas
38 строк
799 B
miks1965
Запретил match 1 with;
16 авг 2018, 13:33
16 авг 2018, 13:33
8835a25
Код
Авторство
О чём код?
type Expr = interface end; Cons = auto class(Expr) r: real; end; Add = auto class(Expr) left,right: Expr; end; Mult = auto class(Expr) left,right: Expr; end; Neg = auto class(Expr) ex: Expr; end; // Создающие функции function ConsC(r: real) := new Cons(r); function AddC(l,r: Expr) := new Add(l,r); function MultC(l,r: Expr) := new Mult(l,r); function NegC(ex: Expr) := new Neg(ex); // Вычисляющая функция function Eval(e: Expr): real; begin match e with Cons(c): Result := c; Neg(n): Result := -Eval(n); Add(l,r): Result := Eval(l) + Eval(r); Mult(l,r): Result := Eval(l) * Eval(r); end; end; begin // -2 + 3 * 4 var r := AddC(NegC(ConsC(2)),MultC(ConsC(3),ConsC(4))); Eval(r).Print; end.