diff options
Diffstat (limited to 'src/algebra/sgcf.spad.pamphlet')
| -rw-r--r-- | src/algebra/sgcf.spad.pamphlet | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet index c871cb18..a86554a0 100644 --- a/src/algebra/sgcf.spad.pamphlet +++ b/src/algebra/sgcf.spad.pamphlet @@ -210,6 +210,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where error"there are not so many partitions" for t in 0..(m-2) repeat s : I := 0 + sOld: I for y in 0..n repeat sOld := s s := s + numberOfImproperPartitions(n-y,m-t-1) @@ -237,6 +238,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where while n ~= 0 repeat s : I := 0 cm := cm - 1 + sOld : I for y in n..1 by -1 repeat --determination of the next son sOld := s -- remember old s -- this functions counts the number of elements in a subtree |