diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-26 12:46:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-26 12:46:05 +0000 |
| commit | 903486e44d8cb2fd57e2df9515be4c3e0e4f5369 (patch) | |
| tree | 0330838c324e7f45a4d92860f3f6c7d2e02b517d /src/algebra/sgcf.spad.pamphlet | |
| parent | 47343d6fc2dcd7c9795f7a715a7cf1d862733c26 (diff) | |
| download | open-axiom-903486e44d8cb2fd57e2df9515be4c3e0e4f5369.tar.gz | |
minor cleanups
Diffstat (limited to 'src/algebra/sgcf.spad.pamphlet')
| -rw-r--r-- | src/algebra/sgcf.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet index c16691d8..bf077186 100644 --- a/src/algebra/sgcf.spad.pamphlet +++ b/src/algebra/sgcf.spad.pamphlet @@ -363,7 +363,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where listYoungTableaus(lambda) == ytab : M I younglist : L M I := nil$(L M I) - lattice := nextLatticePermutation(lambda,nil,false) + lattice := nextLatticePermutation(lambda,nil$L(I),false) until null lattice repeat ytab := makeYoungTableau(lambda,lattice) younglist := append(younglist,[ytab]$(L M I))$(L M I) |