1
0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-26 02:20:30 +01:00

avoid creation of parent in perm_autsymbol and skip perm check

This commit is contained in:
kalmarek 2018-08-01 23:21:47 +02:00
parent 87a7285ba5
commit 84d601817c

View File

@ -134,8 +134,7 @@ function perm_autsymbol(p::Generic.perm{I}; pow::Integer=one(I)) where I<:Intege
end end
function perm_autsymbol(a::Vector{T}) where T<:Integer function perm_autsymbol(a::Vector{T}) where T<:Integer
G = PermutationGroup(T(length(a))) return perm_autsymbol(perm(Vector{Int8}(a), false))
return perm_autsymbol(G(Vector{Int8}(a)))
end end
domain(G::AutGroup)= NTuple{length(G.objectGroup.gens), FreeGroupElem}(gens(G.objectGroup)) domain(G::AutGroup)= NTuple{length(G.objectGroup.gens), FreeGroupElem}(gens(G.objectGroup))