CartesianProduct.cs

using System.Collections.Generic;
using Waher.Runtime.Collections;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
 
namespace Waher.Script.Operators.Vectors
{
    public class CartesianProduct : BinaryVectorOperator
    {
        public CartesianProduct(ScriptNode Left, ScriptNode Right, int Start, int Length, Expression Expression)
            : base(Left, Right, Start, Length, Expression)
        {
        }
 
        public override IElement EvaluateVector(IVector Left, IVector Right, Variables Variables)
        {
            if (Left.Dimension != Right.Dimension)
                throw new ScriptRuntimeException("Vectors of different dimensions.", this);
 
            ChunkedList<IElement> Elements = new ChunkedList<IElement>();
            IEnumerator<IElement> e1 = Left.VectorElements.GetEnumerator();
            IEnumerator<IElement> e2 = Right.VectorElements.GetEnumerator();
            IElement v1;
 
            try
            {
                while (e1.MoveNext())
                {
                    v1 = e1.Current;
                    while (e2.MoveNext())
                        Elements.Add(VectorDefinition.Encapsulate(new IElement[] { v1, e2.Current }, false, this));
 
                    e2.Reset();
                }
 
                return VectorDefinition.Encapsulate(Elements, false, this);
            }
            finally
            {
                e1.Dispose();
                e2.Dispose();
            }
        }
    }
}