avoid creation of parent in perm_autsymbol and skip perm check

2018-08-01 23:21:47 +02:00 · 2018-08-01 23:21:47 +02:00 · 84d601817c
parent 87a7285ba5
commit 84d601817c
1 changed files with 1 additions and 2 deletions
--- a/src/AutGroup.jl
+++ b/src/AutGroup.jl
@ -134,8 +134,7 @@ function perm_autsymbol(p::Generic.perm{I}; pow::Integer=one(I)) where I<:Intege
 end

 function perm_autsymbol(a::Vector{T}) where T<:Integer
-   G = PermutationGroup(T(length(a)))
-   return perm_autsymbol(G(Vector{Int8}(a)))
+   return perm_autsymbol(perm(Vector{Int8}(a), false))
 end

 domain(G::AutGroup)= NTuple{length(G.objectGroup.gens), FreeGroupElem}(gens(G.objectGroup))