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

AutWord -> AutGroupElem

This commit is contained in:
kalmar 2017-05-12 20:02:41 +02:00
parent 7528ab631e
commit 26eb8b35cb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/automorphism_groups.jl
View File

@ -147,7 +147,7 @@ function (F::AutGroupElem)(v)
end
function simplify_perms!(W::AutWord)
function simplify_perms!(W::AutGroupElem)
reduced = true
for i in 1:length(W.symbols) - 1
current = W.symbols[i]
@ -172,7 +172,7 @@ function simplify_perms!(W::AutWord)
return reduced
end
function reduce!(W::AutWord)
function reduce!(W::AutGroupElem)
if length(W) < 2
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
else