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

fix iteration over Automorphisms

This commit is contained in:
kalmarek 2020-11-10 17:03:10 +01:00
parent a8a14206d1
commit ad295fd436
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/symbols.jl
View File

@ -1,7 +1,7 @@
change_pow(s::S, n::Integer) where S<:GSymbol = S(s.id, n)
function Base.iterate(s::GS, i=1) where GS<:GSymbol
return i <= abs(s.pow) ? (GS(s.id, sign(s.pow)), i+1) : nothing
return i <= abs(s.pow) ? (change_pow(s, sign(s.pow)), i+1) : nothing
end
Base.size(s::GSymbol) = (abs(s.pow), )
Base.length(s::GSymbol) = first(size(s))

13
test/AutGroup-tests.jl
View File

@ -142,12 +142,17 @@
@test (Groups.change_pow(f, -2)).pow == 1
@test (inv(f)).pow == 1
f = Groups.AutSymbol(perm"(1,2)(3,4)")
@test isa(inv(f), Groups.AutSymbol)
g = Groups.AutSymbol(perm"(1,2)(3,4)")
@test isa(inv(g), Groups.AutSymbol)
@test_throws MethodError f*f
@test_throws MethodError g*f
@test A(f)^-1 == A(inv(f))
@test A(g)^-1 == A(inv(g))
h = Groups.transvection_R(1,2)
@test collect(A(g)*A(h)) == [g, h]
@test collect(A(h)^2) == [h, h]
end
@testset "reductions/arithmetic" begin