namespace M
{

macro @\(m, op) { <[ $(m).FoldLeft(1, $op) ]> }
macro @/(op, m) { <[ $(m).FoldRight(1, $op) ]> }
macro @`(m, op) { <[ $(m).Map($op) ]> }

}

using System.Console;
using M;

def a = $[1..5] \ _*_;
WriteLine(a);

def b = _*_ / $[5,4..1];
WriteLine(b);

def c = $[1..5] ` _*2;
WriteLine($"..$c");

@a=(splice(@a,0,5),sort{length($a)<=>length($b)}@a);

@a=(splice(@a,0,5),map{$_->[1]}sort{$a->[0]<=>$b->[0]}map{[length,$_]}@a);

A>@a=(splice(@a,0,5),sort{length($a)<=>length($b)}@a);
A>

A>@a=(splice(@a,0,5),map{$_->[1]}sort{$a->[0]<=>$b->[0]}map{[length,$_]}@a);
A>

s.I := m.I.Len;s.(I>4?I)<s.(J>4?J)?m.I:=:m.J

 public void Execute()
        {
            m_output = "";
            m_error = string.Empty;
            m_log.Clear();

            if (this.Count > 0)
            {
                foreach (Line line in this)
                {
                    try
                    {
                        Token token = line.Execute();
                        m_output += token.ToString() + "\r\n";
                    }
                    catch (Exception ex)
                    {
                        m_error = ex.Message;
                        break;
                    }
                }
            }
            else
            {
                m_output = "Hello World !";
            }
        }

A>>@a=(splice(@a,0,5),map{$_->[1]}sort{$a->[0]<=>$b->[0]}map{[length,$_]}@a);
A>>

PC_>s.I := m.I.Len;s.(I>4?I)<s.(J>4?J)?m.I:=:m.J
PC_>

PC_>Ну на глаз так процентов 40% длинее у тебя, с чем тебя и поздравляю

Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

E m:=10..1
E s:=1..10
E s.I := m.I.Len
E s.(I>4?I)<s.(J>4?J)?m.I:=:m.J
E m

PC_>>А версия у тебя все еще Лайт, правда с унарными операторами уже

public Token Agregate(Token token)
        {
            Token result = this;

            if (token.TokenType == TokenType.Operator)
            {
                int value = 1;
                if (token.Text == "*")
                {
                    for (int i = 0; i < this.Result.Count; i++)
                    {
                        value *= this.Result[i].Result;
                    }
                }
                else if (token.Text == "+")
                {
                    for (int i = 0; i < this.Result.Count; i++)
                    {
                        value += this.Result[i].Result;
                    }
                }
                else if (token.Text == "<") //min
                {
                    if (this.Result.Count > 0)
                    {
                        value = this.Result[0].Result;

                        for (int i = 0; i < this.Result.Count; i++)
                        {
                            if (this.Result[i].Result < value)
                                value = this.Result[i].Result;
                        }
                    }
                }
                else if (token.Text == ">") //max
                {
                    value = 0;
                    for (int i = 0; i < this.Result.Count; i++)
                    {
                        if (this.Result[i].Result > value)
                            value = this.Result[i].Result;
                    }
                }

                result = new Number(this.Context);
                result.Result = value;
            }

            return result;
        }

PC_>E m:=10..1
PC_>E s:=1..10
PC_>E s.I := m.I.Len
PC_>E s.(I>4?I)<s.(J>4?J)?m.I:=:m.J
PC_>E m
PC_>

Operators: 1:=10.Len
Operator: .
Error: 'Point' operation for the RS.DOM.Types.Number doesn't support.

PC_>>>А версия у тебя все еще Лайт, правда с унарными операторами уже