KrancTensor.m: Implement DeleteDuplicates for older Mathematica versions

ianhinder · Sep 29, 2011 · 89a1637 · 89a1637
1 parent 18cf85f
commit 89a1637
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m
@@ -79,10 +79,13 @@
      CollectList -> ExpandComponents,
      Equations -> ExpandComponents}];
 
+deleteDuplicates[l_] :=
+  Split[Sort[l]][[All, 1]];
+
 makeGroupExplicit[g_] :=
   Module[{variables, newVariables, newGroup},
     variables = groupVariables[g];
-    newVariables = DeleteDuplicates[ExpandComponents[variables]];
+    newVariables = deleteDuplicates[ExpandComponents[variables]];
     newGroup = SetGroupVariables[g, newVariables];
     newGroup];