kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-26 18:30:29 +01:00
Code Issues Releases Wiki Activity

use rmul!/lmul! in the definitions of R/LTransvect

Browse Source
This commit is contained in:
kalmarek 2020-10-07 02:38:22 +02:00
parent 8532767170
commit a4e0b821b9
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/AutGroup.jl
View File

@ -167,14 +167,12 @@ end
# #
function (ϱ::RTransvect)(v, pow::Integer=1) function (ϱ::RTransvect)(v, pow::Integer=1)
append!(v[ϱ.i], v[ϱ.j]^pow) rmul!(v[ϱ.i], v[ϱ.j]^pow)
freereduce!(v[ϱ.i])
return v return v
end end
function (λ::LTransvect)(v, pow::Integer=1) function (λ::LTransvect)(v, pow::Integer=1)
prepend!(v[λ.i], v[λ.j]^pow) lmul!(v[λ.i], v[λ.j]^pow)
freereduce!(v[λ.i])
return v return v
end end