diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-21 03:20:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-21 03:20:13 +0000 |
commit | 7e65db21249e99bfcfd0a8ccf5debee565e3acde (patch) | |
tree | 4b8865f17a8ca07d102d872cdd92d83dce0454f5 /src | |
parent | afaaaac2b55741bfe43099f819fd4a9592b1c022 (diff) | |
download | open-axiom-7e65db21249e99bfcfd0a8ccf5debee565e3acde.tar.gz |
* algebra/sgcf.spad.pamphlet (SymmetricGroupCombinatoricFunctions)
[listYoungTableaus]: Fix thinko. Don't use lattice in its own
initialization.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 6 | ||||
-rw-r--r-- | src/algebra/sgcf.spad.pamphlet | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index db1cc1ab..a4de5bf5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2010-06-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/sgcf.spad.pamphlet (SymmetricGroupCombinatoricFunctions) + [listYoungTableaus]: Fix thinko. Don't use lattice in its own + initialization. + +2010-06-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/g-opt.boot (changeVariableDefinitionToStore): New. (optimizeFunctionDef): Use it. diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet index 72669658..b917271f 100644 --- a/src/algebra/sgcf.spad.pamphlet +++ b/src/algebra/sgcf.spad.pamphlet @@ -361,10 +361,9 @@ SymmetricGroupCombinatoricFunctions(): public == private where listYoungTableaus(lambda) == - lattice : L I ytab : M I younglist : L M I := nil$(L M I) - lattice := nextLatticePermutation(lambda,lattice,false) + lattice := nextLatticePermutation(lambda,nil,false) until null lattice repeat ytab := makeYoungTableau(lambda,lattice) younglist := append(younglist,[ytab]$(L M I))$(L M I) |