/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/patterns/patterns-nested-match.pas
52 строки
911 B
Александр Погорелов
fix #902, fix #1306
15 июн 2019, 12:15
15 июн 2019, 12:15
5c89b74
Код
Авторство
О чём код?
begin match Arr(1,2,3) with [1,2]: match Arr(1,2,3,4) with [1,2,3]: assert(false); [.., 4]: match Arr(1,2) with [1,2]: ; end; end; [1, .., 3]: begin if 1 is integer(var i1) then if 2 is integer(var i2) then if 3 is integer(var i3) then assert(i3 = 3) else assert(false) else assert(false); end; [..]: else assert(false); end; match Arr(1,2,3) with [1,2]: match Arr(1,2,3,4) with [1,2,3]: assert(false); [.., 4]: match Arr(1,2) with [1,2]: ; end; end; [1, .., 3]: begin if 1 is integer(var i1) then if 2 is integer(var i2) then if 3 is integer(var i3) then assert(i3 = 3) else assert(false) else assert(false); end; [..]: else assert(false); end; end.