Set.cs

using System;
using System.Collections.Generic;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects.Sets;
 
namespace Waher.Script.Abstraction.Sets
{
    public abstract class Set : Element, ISet
    {
        public Set()
        {
        }
 
        public abstract bool Contains(IElement Element);
 
        public override IElement Encapsulate(ICollection<IElement> Elements, ScriptNode Node)
        {
            return Operators.Sets.SetDefinition.Encapsulate(Elements);
        }
 
        public override abstract bool Equals(object obj);
 
        public override abstract int GetHashCode();
 
        public override object AssociatedObjectValue
        {
            get { return this; }
        }
 
        public override ISet AssociatedSet
        {
            get { return SetOfSets.Instance; }
        }
 
        public override ICollection<IElement> ChildElements
        {
            get
            {
                throw new ScriptException("Enumeration of set elements requires its finite members to be defined.");
            }
        }
 
        public override bool IsScalar
        {
            get { return false; }
        }
 
        public virtual int? Size
        {
            get { return null; }
        }
 
        public static ISet ToSet(IElement E)
        {
            if (!(E is ISet Result))
            {
                if (E is IVector Vector)
                    Result = new FiniteSet(Vector.VectorElements);
                else
                {
                    object Obj = E.AssociatedObjectValue;
                    Result = Obj as ISet;
                    if (Result is null)
                    {
                        if (Obj is IEnumerable<IElement> Elements)
                            Result = new FiniteSet(Elements);
                        else if (Obj is IEnumerable<object> Objects)
                        {
                            LinkedList<IElement> List = new LinkedList<IElement>();
 
                            foreach (object x in Objects)
                                List.AddLast(Expression.Encapsulate(x));
 
                            Result = new FiniteSet(List);
                        }
                        else
                            return null;
                    }
                }
            }
 
            return Result;
        }
 
 
    }
}