/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yieldcase.pas
20 строк
352 B
miks1965
Yield - в инсталляторе!!!
10 июл 2016, 00:14
10 июл 2016, 00:14
88e9937
Код
Авторство
О чём код?
function Sq(n: integer): sequence of integer; begin for var i:=1 to n do case i mod 3 of 0: yield 22; 1: yield 33; 2: yield 44; end; yield 55; end; procedure AssertSeq<T>(q,correct: sequence of T); begin Assert(q.SequenceEqual(correct),q.JoinIntoString); end; begin AssertSeq(Sq(5).Println,Seq(33,44,22,33,44,55)); end.