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

update getperm

Browse Source
This commit is contained in:
kalmar 2017-05-12 20:08:27 +02:00
parent f6f2258629
commit 39d64b7e69
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/automorphism_groups.jl
View File

@ -74,11 +74,12 @@ function perm_autsymbol(p::perm; pow::Int=1)
end
function getperm(s::AutSymbol)
if s.ex.args[1] == :σ
return s.ex.args[2]
else
throw(ArgumentError("$s is not a permutation automorphism!"))
end
if s.ex.args[1] == :σ
p = s.ex.args[2]
return PermutationGroup(length(p))(p)
else
throw(ArgumentError("$s is not a permutation automorphism!"))
end
end
function AutGroup(G::FPGroup; outer=false, special=false)