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

simplify change_pow

This commit is contained in:
kalmar 2017-04-18 13:19:04 +02:00
parent 38da5b4e98
commit 8dfe9ec8f3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/automorphism_groups.jl
View File

@ -32,9 +32,10 @@ function change_pow(s::AutSymbol, n::Int)
elseif symbol == :σ
return symmetric_AutSymbol(s.ex.args[2], pow=n)
elseif symbol == :ϱ
return rmul_AutSymbol(s.ex.args[2], s.ex.args[3], pow=n)
s.ex.args[2:end-1]
return rmul_AutSymbol(s.ex.args[2:end-1]..., pow=n)
elseif symbol == :λ
return lmul_AutSymbol(s.ex.args[2], s.ex.args[3], pow=n)
return lmul_AutSymbol(s.ex.args[2:end-1]..., pow=n)
elseif symbol == :id
return s
else