kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-10-15 07:20:35 +02:00
Code Issues Releases Wiki Activity

one is no more

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

6
src/Groups.jl
View File

@ -4,7 +4,7 @@ using Nemo
import Nemo: Group, parent
import Base: length, ==, hash, show, convert
import Base: one, inv, reduce, *, ^
import Base: inv, reduce, *, ^
import Base: findfirst, findnext
import Base: deepcopy_internal
@ -49,7 +49,7 @@ function free_reduce!(W::GWord)
p1 = W.symbols[i].pow
p2 = W.symbols[i+1].pow
W.symbols[i+1] = change_pow(W.symbols[i], p1 + p2)
W.symbols[i] = one(W.symbols[i])
W.symbols[i] = change_pow(W.symbols[i], 0)
end
end
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
@ -128,7 +128,7 @@ function power_by_squaring{T}(x::GWord{T}, p::Integer)
if p < 0
return power_by_squaring(inv(x), -p)
elseif p == 0
return one(x)
return parent(W)()
elseif p == 1
return x
elseif p == 2