kalmar
/
Groups.jl
mirror of https://github.com/kalmarek/Groups.jl.git
1
0
Fork 0
Code Issues Releases Wiki Activity

fix evaluate

This commit is contained in:
kalmarek 2020-03-14 08:56:26 -07:00
parent 68abfafd29
commit 920bc1f28d
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/AutGroup.jl
View File

@ -215,24 +215,24 @@ end
#
###############################################################################
function (f::AutSymbol)(v::NTuple{N, T}) where {N, T}
if f.pow != 0
v = f.fn(v, f.pow)::NTuple{N, T}
function (s::AutSymbol)(v::NTuple{N, T}) where {N, T}
if s.pow != 0
v = s.fn(v, s.pow)::NTuple{N, T}
end
return v
end
function (F::Automorphism{N})(v::NTuple{N, T}) where {N, T}
for (i, f) in enumerate(F.symbols)
v = f(v)::NTuple{N, T}
if i % 2 == 0
function (f::Automorphism{N})(v::NTuple{N, T}) where {N, T}
for (i, s) in enumerate(f.symbols)
v = s(v)::NTuple{N, T}
if i % 5 == 0
freereduce!.(v)
end
end
return v
end
evaluate(F::Automorphism{N}) = f(domain(parent(f)))
evaluate(f::Automorphism) = f(domain(parent(f)))
###############################################################################
#