/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yield2.pas
15 строк
200 B
Бондарев Иван
bug fix #435
04 июл 2017, 21:44
04 июл 2017, 21:44
4361a81
Код
Авторство
О чём код?
function g: sequence of integer; begin yield 1; yield 2; end; function f: sequence of integer; begin foreach var i in g do begin yield i; end; end; begin assert(f.ToArray[1] = 2); end.