mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-25 02:05:30 +01:00
use rmul!/lmul! in the definitions of R/LTransvect
This commit is contained in:
parent
8532767170
commit
a4e0b821b9
@ -167,14 +167,12 @@ end
|
||||
#
|
||||
|
||||
function (ϱ::RTransvect)(v, pow::Integer=1)
|
||||
append!(v[ϱ.i], v[ϱ.j]^pow)
|
||||
freereduce!(v[ϱ.i])
|
||||
rmul!(v[ϱ.i], v[ϱ.j]^pow)
|
||||
return v
|
||||
end
|
||||
|
||||
function (λ::LTransvect)(v, pow::Integer=1)
|
||||
prepend!(v[λ.i], v[λ.j]^pow)
|
||||
freereduce!(v[λ.i])
|
||||
lmul!(v[λ.i], v[λ.j]^pow)
|
||||
return v
|
||||
end
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user