/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/SystemIndexTest1.pas
12 строк
321 B
Mikhalkovich Stanislav
3.6.3 Release
04 май 2020, 23:51
04 май 2020, 23:51
bdda511
Код
Авторство
О чём код?
begin var s := 'qwerty'; Assert(s[^1] = 'y'); {Assert(s[:^1] = 'qwert'); var a := Arr(1..10); Assert(a[^1] = 10); Assert(a[:^1].SequenceEqual(Arr(1..9))); var l := Lst(11..20); Assert(l[^1] = 20); Assert(l[:^1].SequenceEqual(Arr(11..19))); Assert(a[^2::-2].SequenceEqual(Arr(9, 7, 5, 3, 1)));} end.