From 7e65db21249e99bfcfd0a8ccf5debee565e3acde Mon Sep 17 00:00:00 2001 From: dos-reis <gdr@axiomatics.org> Date: Mon, 21 Jun 2010 03:20:13 +0000 Subject: * algebra/sgcf.spad.pamphlet (SymmetricGroupCombinatoricFunctions) [listYoungTableaus]: Fix thinko. Don't use lattice in its own initialization. --- src/algebra/sgcf.spad.pamphlet | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/algebra/sgcf.spad.pamphlet') 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) -- cgit v1.2.3