kalmar
/
GroupRings.jl
mirror of https://github.com/kalmarek/GroupRings.jl.git
1
0
Fork 0
Code Issues Releases Wiki Activity

make another version of mul! for GroupRingElts

This commit is contained in:
kalmar 2017-07-19 22:38:17 +02:00
parent 4c275460cc
commit 5c2fabfb08
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/GroupRings.jl
View File

@ -335,12 +335,23 @@ function mul!{T}(result::AbstractVector{T},
end
end
function mul!{T}(result::GroupRingElem{T}, X::GroupRingElem{T}, Y::GroupRingElem{T})
# @show result === X
function mul!{T}(result::GroupRingElem{T}, X::GroupRingElem, Y::GroupRingElem)
if result === X
result = deepcopy(result)
end
mul!(result.coeffs, X.coeffs, Y.coeffs, parent(X).pm)
z = zero(T)
result.coeffs .= z
for j in eachindex(Y.coeffs)
if Y.coeffs[j] != z
for i in eachindex(X.coeffs)
if X.coeffs[i] != z
result.coeffs[parent(X).pm[i,j]] += X[i]*Y[j]
end
end
end
end
return result
end