diff options
Diffstat (limited to 'src/algebra/ffcat.spad.pamphlet')
| -rw-r--r-- | src/algebra/ffcat.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/ffcat.spad.pamphlet b/src/algebra/ffcat.spad.pamphlet index 9669856f..de353123 100644 --- a/src/algebra/ffcat.spad.pamphlet +++ b/src/algebra/ffcat.spad.pamphlet @@ -289,7 +289,7 @@ FiniteAlgebraicExtensionField(F : Field) : Category == _ coordinates(v:Vector $) == m := new(#v, extensionDegree(), 0)$Matrix(F) for i in minIndex v .. maxIndex v for j in minRowIndex m .. repeat - setRow_!(m, j, coordinates qelt(v, i)) + setRow!(m, j, coordinates qelt(v, i)) m algebraic? a == true transcendent? a == false @@ -305,7 +305,7 @@ FiniteAlgebraicExtensionField(F : Field) : Category == _ b := basis() m := new(#b,#b, 0)$Matrix(F) for i in 1..#b repeat - setRow_!(m,i, coordinates(a*b.i)) + setRow!(m,i, coordinates(a*b.i)) determinant(m) if F has Finite then linearAssociatedExp(x,f) == @@ -463,7 +463,7 @@ DiscreteLogarithmPackage(M): public == private where a:M:=1 exptable : Table(PI,NNI) :=table()$Table(PI,NNI) for i in (0::NNI)..(n-1)::NNI repeat - insert_!([lookup(a),i::NNI]$Record(key:PI,entry:NNI),_ + insert!([lookup(a),i::NNI]$Record(key:PI,entry:NNI),_ exptable)$Table(PI,NNI) a:=a*logbase found := false |