Or

dharmatech · Nov 6, 2014 · 4e66424 · 4e66424
1 parent d77a6bb
commit 4e66424
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/Symbolism/Symbolism.cs b/Symbolism/Symbolism.cs
@@ -713,6 +713,29 @@ public MathObject Substitute(MathObject a, MathObject b)
         }
     }
 
+    public class Or : Function
+    {
+        MathObject OrProc(params MathObject[] ls)
+        {
+            if (ls.Any(elt => (elt is Bool) && (elt as Bool).val)) return new Bool(true);
+
+            if (ls.All(elt => (elt is Bool) && (elt as Bool).val == false)) return new Bool(false);
+
+            var obj = new Or();
+
+            obj.args = new List<MathObject>(ls);
+
+            return obj;
+        }
+
+        public Or(params MathObject[] ls)
+        {
+            name = "Or";
+            args = new List<MathObject>(ls);
+            proc = OrProc;
+        }
+    }
+
     public class Sin : Function
     {
         MathObject SinProc(params MathObject[] ls)