new definition of AutSymbol, AutGroupElem and its parent AutGroup
This commit is contained in:
parent
bab1a64042
commit
2c35d8427e
|
@ -10,7 +10,12 @@ immutable AutSymbol <: GSymbol
|
|||
func::Function
|
||||
end
|
||||
|
||||
typealias AutGroupElem GWord{AutSymbol}
|
||||
|
||||
type AutGroup <: Group
|
||||
objectGroup::Group
|
||||
generators::Vector{AutSymbol}
|
||||
end
|
||||
(==)(s::AutSymbol, t::AutSymbol) = s.gen == t.gen && s.pow == t.pow
|
||||
hash(s::AutSymbol, h::UInt) = hash(s.gen, hash(s.pow, hash(:AutSymbol, h)))
|
||||
|
||||
|
@ -109,7 +114,6 @@ function getperm(s::AutSymbol)
|
|||
end
|
||||
end
|
||||
|
||||
typealias AutWord GWord{AutSymbol}
|
||||
function (f::AutSymbol){T}(v::Vector{GWord{T}})
|
||||
if f.pow == 0
|
||||
return v
|
||||
|
@ -117,7 +121,7 @@ function (f::AutSymbol){T}(v::Vector{GWord{T}})
|
|||
return f.func(v)
|
||||
end
|
||||
|
||||
function (F::AutWord)(v)
|
||||
function (F::AutGroupElem)(v)
|
||||
for f in F.symbols
|
||||
v = f(v)
|
||||
end
|
||||
|
|
Loading…
Reference in New Issue