/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/patterns/patterns-match-lambda.pas
17 строк
233 B
Александр Погорелов
fix #902, fix #1306
15 июн 2019, 12:15
15 июн 2019, 12:15
5c89b74
Код
Авторство
О чём код?
begin var o := new object(); var p: procedure := ()-> begin match o with integer(o1):; double(o2):; char(o3):; else begin exit; end; end; assert(false); end; p; end.