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

move deletion of identities into free_reduce

Browse Source
This commit is contained in:
kalmar 2017-05-11 17:52:14 +02:00
parent 12cf72b476
commit 6ae234cabb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Groups.jl
View File

@ -52,6 +52,7 @@ function free_reduce!(W::GWord)
W.symbols[i] = one(W.symbols[i]) W.symbols[i] = one(W.symbols[i])
end end
end end
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
return reduced return reduced
end end
@ -62,7 +63,6 @@ function reduce!{T}(W::GWord{T})
reduced = false reduced = false
while !reduced while !reduced
reduced = free_reduce!(W) reduced = free_reduce!(W)
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
end end
end end