mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-25 02:05:30 +01:00
commit
54d32ce32c
@ -331,7 +331,7 @@ inv(f::AutSymbol) = change_pow(f, -f.pow)
|
||||
|
||||
function getperm(s::AutSymbol)
|
||||
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
|
||||
else
|
||||
return s.fn.perm
|
||||
|
@ -142,7 +142,7 @@ inv(s::FPSymbol) = change_pow(s, -s.pow)
|
||||
|
||||
function reduce!(W::FPGroupElem)
|
||||
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
|
||||
reduced = false
|
||||
while !reduced
|
||||
|
@ -1,4 +1,3 @@
|
||||
__precompile__()
|
||||
module Groups
|
||||
|
||||
using AbstractAlgebra
|
||||
|
Loading…
Reference in New Issue
Block a user