diff options
Diffstat (limited to 'src/algebra/sgcf.spad.pamphlet')
-rw-r--r-- | src/algebra/sgcf.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet index 500b92b4..752ecd02 100644 --- a/src/algebra/sgcf.spad.pamphlet +++ b/src/algebra/sgcf.spad.pamphlet @@ -395,7 +395,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where vrest := vrest + row(coleman,i) succ := nextPartition(vrest, row(coleman, i), beta(i)) j : I := i - coleman := setRow_!(coleman, i, succ) + coleman := setRow!(coleman, i, succ) --for k in 1..ncol repeat -- vrest(k) := vrest(k) - coleman(i,k) vrest := vrest - row(coleman,i) @@ -407,11 +407,11 @@ SymmetricGroupCombinatoricFunctions(): public == private where j : I := 0 for i in (j+1)::NNI..nrow-1 repeat succ := nextPartition(vrest,vnull,beta(i)) - coleman := setRow_!(coleman, i, succ) + coleman := setRow!(coleman, i, succ) vrest := vrest - succ --for k in 1..ncol repeat -- vrest(k) := vrest(k) - succ(k) - setRow_!(coleman, nrow, vrest) + setRow!(coleman, nrow, vrest) nextPartition(gamma:V I, part:V I, number:I) == |