mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-26 02:20:30 +01:00
commit
54d32ce32c
@ -331,7 +331,7 @@ inv(f::AutSymbol) = change_pow(f, -f.pow)
|
|||||||
|
|
||||||
function getperm(s::AutSymbol)
|
function getperm(s::AutSymbol)
|
||||||
if s.pow != 1
|
if s.pow != 1
|
||||||
warn("Power for perm_symbol should be never 0!")
|
@warn("Power for perm_symbol should be never 0!")
|
||||||
return s.fn.perm^s.pow
|
return s.fn.perm^s.pow
|
||||||
else
|
else
|
||||||
return s.fn.perm
|
return s.fn.perm
|
||||||
|
@ -142,7 +142,7 @@ inv(s::FPSymbol) = change_pow(s, -s.pow)
|
|||||||
|
|
||||||
function reduce!(W::FPGroupElem)
|
function reduce!(W::FPGroupElem)
|
||||||
if length(W) < 2
|
if length(W) < 2
|
||||||
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
|
deleteat!(W.symbols, findall(x -> x.pow == 0, W.symbols))
|
||||||
else
|
else
|
||||||
reduced = false
|
reduced = false
|
||||||
while !reduced
|
while !reduced
|
||||||
|
@ -1,4 +1,3 @@
|
|||||||
__precompile__()
|
|
||||||
module Groups
|
module Groups
|
||||||
|
|
||||||
using AbstractAlgebra
|
using AbstractAlgebra
|
||||||
|
Loading…
Reference in New Issue
Block a user