/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_3_levels_a.pas
19 строк
290 B
Mikhalkovich Stanislav
bug fix #1988
25 июн 2019, 23:53
25 июн 2019, 23:53
8bdad9b
Код
Авторство
О чём код?
begin var a := 1; var l0: procedure := ()-> begin var l1: procedure := ()->Assert(777=777); var l2: integer->()->() := i-> begin Assert(666=666); Result := ()-> Assert(a+i=8); end; l1; l2(7)(); end; l0(); end.