kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2025-01-12 22:22:32 +01:00
Code Issues Releases Wiki Activity

in automoprhism evaluation no need to freereduce!

Browse Source 
Symbols already do so, where appropriate
This commit is contained in:
kalmarek 2020-03-25 00:47:45 +01:00
parent b9c2a90bae
commit a1ebf530f4
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/AutGroup.jl
View File

@ -217,20 +217,16 @@ end
# #
############################################################################### ###############################################################################
function (s::AutSymbol)(v::NTuple{N, T}) where {N, T} (s::AutSymbol)(v::NTuple{N, T}) where {N, T} = s.fn(v, s.pow)::NTuple{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} function (f::Automorphism{N})(v::NTuple{N, T}) where {N, T}
for (i, s) in enumerate(f.symbols) for s in syllables(f)
v = s(v)::NTuple{N, T} v = s(v)::NTuple{N, T}
if i % 5 == 0 # if iszero(i % 3)
freereduce!.(v) # freereduce!.(v)
end # end
end end
# return freereduce!.(v)
return v return v
end end