make gen for vector spaces faster (Nemocas#1403)

HechtiDerLachs · Aug 4, 2023 · e537fdd · e537fdd
1 parent bfa185a
commit e537fdd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/generic/FreeModule.jl b/src/generic/FreeModule.jl
@@ -52,7 +52,9 @@ end
 function gen(N::FreeModule{T}, i::Int) where T <: Union{RingElement, NCRingElem}
    @boundscheck 1 <= i <= ngens(N) || throw(ArgumentError("generator index out of range"))
    R = base_ring(N)
-   return N([(j == i ? one(R) : zero(R)) for j = 1:ngens(N)])
+   m = zero_matrix(R, 1, ngens(N))
+   m[1, i] = one(R)
+   return N(m)
 end
 
 basis(N::FreeModule) = gens(N)