Максимальное число идущих подряд чисел

var a:=|5, 9, 7, 8, 1, 2, 3, 4, 1|;
var b:=a.Pairwise.Where(x->x[0]<x[1]).ToArray;
var c:=b.Length.Println;

## 
var a:=|5, 9, 7, 8, 1, 2, 3, 4, 1|;
a.Println;//5 9 7 8 1 2 3 4 1
var b:=a.Pairwise.Where(x->x[0]<x[1]).ToArray;//(5,9) (7,8) (1,2) (2,3) (3,4)
var d:=a.Pairwise.Where(x->x[0]<x[1]).ToArray.println;
var c:=b.Length.Println;//5
a.AdjacentGroup.Max(g->g.Length).ToString.Println();//1
a.AdjacentGroup.MaxBy(x -> x.Length).Length.Println();//1
a.AdjacentGroup.Select(v -> v.Count).Max.ToString.Println();//1

function AdjacentGroupBy<T,TKey>(self: sequence of T; by: T->TKey); extensionmethod := self.AdjacentGroupBy(by, nil);
var a:=|5, 9, 7, 8, 1, 2, 3, 4, 1|;
var r:=a.Pairwise((a,b)->(a,b,Sign(b-a)))
.AdjacentGroupBy(\(a,b,s)->s)
.Where(\(s,items)->items.Length>1)
.Select(\(s,items)->(s, items.Select(\(a,b,s)->a)+items[^1][1]));
r.PrintLines;//Доступ к элементам кортежа
//Элементы (поля) кортежа имеют имена Item1, Item2 и т.д.:
//Print(r.Item1,r.Item2);//Item1 не объявлен в типе IEnumerable<Tuple<integer,IEnumerable<integer>>>
//К элементам кортежа можно обращаться также по индексу:
//Print(r[0],r[1]);//Нет индексного свойства по умолчанию для типа IEnumerable<Tuple<integer,IEnumerable<integer>>>

##
var a:=|5, 9, 7, 8, 1, 2, 3, 4, 1|;
var n := a.High;
var b := a.ConvertAll((t,i)-> (0..n-i).TakeWhile(j-> t+j=a[i+j]).Last + 1);
b.Max.Println;
a[b.IndexMax:b.IndexMax+b.Max].Println

##
var a:=|1, 5, 2, 3, 8|;
var n := a.High;
var b := a.ConvertAll((t,i)-> (0..n-i-1).TakeWhile(j->a[i+j]<a[i+j+1]).Count+1);
b.Max.Println;
a[b.IndexMax:b.IndexMax+b.Max].Println

##
var a:=|1, 5, 2, 3, 8|;
var b := |1|*a.Length;
b.fill(i-> (i>0) and (a[i-1] < a[i]) ? b[i-1]+1 : 1);
b.Max.Println;
a[b.IndexMax-b.Max+1:b.IndexMax+1].Println

## var a := |5, 9, 7, 8, 1, 2, 3, 4, 1|;
// Находим направления (-1=вниз, 0=никуда, +1=вверх) между элементами
var b := a.Pairwise((x,y)->Sign(y-x));
// Находим группы одинаковых направлений
var c := b.AdjacentGroup;
// Находим размер самой длинной группы
// +1, потому что a=|1, 2, 3| => b=|1, 1|
// То есть направлений на 1 меньше чем кол-во элементов последовательности
c.Max(g->g.Length+1).Print;

## |5, 9, 7, 8, 1, 2, 3, 4, 1|
.Pairwise((x,y)->x<y)
.AdjacentGroup
.Where(g->g[0])
.Max(g->g.Length+1).Print;