/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yieldwhilerepeat.pas
18 строк
257 B
miks1965
Yield - в инсталляторе!!!
10 июл 2016, 00:14
10 июл 2016, 00:14
88e9937
Код
Авторство
О чём код?
function Sq(n: integer): sequence of integer; begin var i:=1; while i<=n do begin yield i; i += 1; end; repeat yield i; i -= 1; until i<=0; end; begin Assert(Sq(3).SequenceEqual(Seq(1,2,3,4,3,2,1)),Sq(3).JoinIntoString); end.