Generalize TableauAppend

modified: YoungTableaux.m TableauAppend can now append lists of elements in a given row.
JEM-Mosig · Dec 23, 2017 · bce06f7 · bce06f7
1 parent cbddda0
commit bce06f7
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Multiplets/YoungTableaux.m b/Multiplets/YoungTableaux.m
@@ -508,7 +508,10 @@
       Append[PadRight[fil, Total[spec], Empty], entry]
     ] /. replaceEmptyFillings
   ]
-]
+] /; !ListQ[entry]
+
+(* automatically append lists of elements in one row *)
+TableauAppend[tab_Tableau, row_, entry_List] := Fold[TableauAppend[#1, row, #2] &, tab, entry]
 
 (* use this rule to simplify Tableau expressions by removing empty fillings (in the end) *)
 replaceEmptyFillings = {