Reverse.cs

using System.Numerics;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
using Waher.Script.Objects;
using Waher.Script.Objects.VectorSpaces;
 
namespace Waher.Script.Functions.Vectors
{
    public class Reverse : FunctionOneVectorVariable
    {
        public Reverse(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Reverse);
 
        protected override IElement EvaluateNonVector(IElement Argument, Variables Variables)
        {
            if (Argument.AssociatedObjectValue is string s)
            {
                if (string.IsNullOrEmpty(s))
                    return Argument;
 
                char[] Characters = s.ToCharArray();
 
                System.Array.Reverse(Characters);
 
                return new StringValue(new string(Characters));
            }
            else
                return base.EvaluateNonVector(Argument, Variables);
        }
 
        public override IElement EvaluateVector(IVector Argument, Variables Variables)
        {
            int i, c = Argument.Dimension;
            IElement[] E = new IElement[c];
 
            for (i = 0; i < c; i++)
                E[c - i - 1] = Argument.GetElement(i);
            
            return Argument.Encapsulate(E, this);
        }
 
        public override IElement EvaluateVector(DoubleVector Argument, Variables Variables)
        {
            int i, c = Argument.Dimension;
            double[] E = new double[c];
            double[] V = Argument.Values;
 
            for (i = 0; i < c; i++)
                E[c - i - 1] = V[i];
 
            return new DoubleVector(E);
        }
 
        public override IElement EvaluateVector(ComplexVector Argument, Variables Variables)
        {
            int i, c = Argument.Dimension;
            Complex[] E = new Complex[c];
            Complex[] V = Argument.Values;
 
            for (i = 0; i < c; i++)
                E[c - i - 1] = V[i];
 
            return new ComplexVector(E);
        }
 
        public override IElement EvaluateVector(BooleanVector Argument, Variables Variables)
        {
            int i, c = Argument.Dimension;
            bool[] E = new bool[c];
            bool[] V = Argument.Values;
 
            for (i = 0; i < c; i++)
                E[c - i - 1] = V[i];
 
            return new BooleanVector(E);
        }
 
    }
}