/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/SliceQuestion.pas
36 строк
977 B
miks1965
a?[2:10:2]
10 янв 2017, 08:49
10 янв 2017, 08:49
32cc3ed
Код
Авторство
О чём код?
begin //var s := '012345'; var a:= Arr(0,1,2,3,4,5); var a1 := a?[-1:]; Assert(a1.SequenceEqual(Seq(0,1,2,3,4,5))); a1 := a?[1:6]; Assert(a1.SequenceEqual(Seq(1,2,3,4,5))); a1 := a?[-2::2]; Assert(a1.SequenceEqual(Seq(0,2,4))); a1 := a?[3:-2:-1]; Assert(a1.SequenceEqual(Seq(3,2,1,0))); a1 := a?[4:-2:-2]; Assert(a1.SequenceEqual(Seq(4,2,0))); var l:= Lst(0,1,2,3,4,5); var l1 := l?[-1:]; Assert(l1.SequenceEqual(Seq(0,1,2,3,4,5))); l1 := l?[1:6]; Assert(l1.SequenceEqual(Seq(1,2,3,4,5))); l1 := l?[-2::2]; Assert(l1.SequenceEqual(Seq(0,2,4))); l1 := l?[3:-2:-1]; Assert(l1.SequenceEqual(Seq(3,2,1,0))); l1 := l?[4:-2:-2]; Assert(l1.SequenceEqual(Seq(4,2,0))); var s := '012345'; var s1 := s?[-1:]; Assert(s1.Equals('012345')); s1 := s?[2:7]; Assert(s1.Equals('12345')); s1 := s?[-1::2]; Assert(s1.Equals('024')); s1 := s?[4:-2:-1]; Assert(s1.Equals('3210')); s1 := s?[5:-2:-2]; Assert(s1.Equals('420')); end.