/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yield_byte_boolean.pas
22 строки
398 B
Mikhalkovich Stanislav
bugs fix #1254 #1563
07 дек 2018, 23:10
07 дек 2018, 23:10
543d0b6
Код
Авторство
О чём код?
function fff: sequence of byte; begin for var b: byte := 0 to byte.MaxValue do yield b end; function fff1: sequence of byte; begin for var b: byte := byte.MaxValue downto 0 do yield b end; function fff2: sequence of boolean; begin for var b := False to True do yield b end; begin Assert(fff.SequenceEqual(fff1.Reverse)); Assert(fff2.SequenceEqual(Seq(False,True))); end.