Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Set-consolidation/Bracmat/set-consolidation.bracmat
+++ b/Task/Set-consolidation/Bracmat/set-consolidation.bracmat
@ -0,0 +1,28 @@
+( ( consolidate
+  =   a m z mm za zm zz
+    .     ( removeNumFactors
+          =   a m z
+            .     !arg:?a+#%*?m+?z
+                & !a+!m+removeNumFactors$!z
+              | !arg
+          )
+        &   !arg
+          :   ?a
+              %?`m
+              ( %?z
+              &   !m
+                :   ?
+                  + ( %@?mm
+                    & !z:?za (?+!mm+?:?zm) ?zz
+                    )
+                  + ?
+              )
+        & consolidate$(!a removeNumFactors$(!m+!zm) !za !zz)
+      | !arg
+  )
+& (test=.out$(!arg "==>" consolidate$!arg))
+& test$(A+B C+D)
+& test$(A+B B+D)
+& test$(A+B C+D D+B)
+& test$(H+I+K A+B C+D D+B F+G+H)
+);