diff options
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/KrancTensor.m | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m index 4318453..6849fc9 100644 --- a/Tools/CodeGen/KrancTensor.m +++ b/Tools/CodeGen/KrancTensor.m @@ -79,8 +79,9 @@ makeCalculationExplicit[calc_] := CollectList -> ExpandComponents, Equations -> ExpandComponents}]; +(* DeleteDuplicates is not available in Mathematica before version 7 *) deleteDuplicates[l_] := - Split[Sort[l]][[All, 1]]; + Tally[Join@l][[All, 1]]; makeGroupExplicit[g_] := Module[{variables, newVariables, newGroup}, |