kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-10-15 07:20:35 +02:00
Code Issues Releases Wiki Activity

tests and imports for findlast, findprev

Browse Source
This commit is contained in:
kalmarek 2020-04-20 00:52:06 +02:00
parent dfce36c099
commit 7517a8feb9
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Groups.jl
View File

@ -7,7 +7,7 @@ import AbstractAlgebra: order, gens, matrix_repr
import Base: length, ==, hash, show, convert, eltype, iterate import Base: length, ==, hash, show, convert, eltype, iterate
import Base: inv, reduce, *, ^, power_by_squaring import Base: inv, reduce, *, ^, power_by_squaring
import Base: findfirst, findnext, replace import Base: findfirst, findnext, findlast, findprev, replace
import Base: deepcopy_internal import Base: deepcopy_internal
using LinearAlgebra using LinearAlgebra

15
test/FreeGroup-tests.jl
View File

@ -36,7 +36,8 @@ end
@test isa(Vector{FreeGroupElem}([s,t]), Vector{FreeGroupElem}) @test isa(Vector{FreeGroupElem}([s,t]), Vector{FreeGroupElem})
@test length(FreeGroupElem(s)) == 1 @test length(FreeGroupElem(s)) == 1
@test length(FreeGroupElem(t)) == 2 @test length(FreeGroupElem(t)) == 2
@test Groups.FreeSymbol(:s, 1) != Groups.FreeSymbol(:s, 2)
@test Groups.FreeSymbol(:s, 1) != Groups.FreeSymbol(:t, 1)
end end
@testset "FreeGroup" begin @testset "FreeGroup" begin
@ -64,6 +65,8 @@ end
@test w[end] == tt @test w[end] == tt
@test collect(ttinv) == [ttinv] @test collect(ttinv) == [ttinv]
@test Groups.GroupWord([tt, inv(tt)]) isa FreeGroupElem
end end
@testset "internal arithmetic" begin @testset "internal arithmetic" begin
@ -96,7 +99,7 @@ end
@test o*p == one(parent(o*p)) @test o*p == one(parent(o*p))
w = FreeGroupElem([o.symbols..., p.symbols...]) w = FreeGroupElem([o.symbols..., p.symbols...])
w.parent = G w.parent = G
@test Groups.reduce!(w).symbols ==Vector{Groups.FreeSymbol}([]) @test Groups.syllables(Groups.reduce(w)) == Vector{Groups.FreeSymbol}([])
end end
@testset "Group operations" begin @testset "Group operations" begin
@ -126,8 +129,14 @@ end
c = s*t*s^-1*t^-1 c = s*t*s^-1*t^-1
@test findfirst(s^-1*t^-1, c) == 3 @test findfirst(s^-1*t^-1, c) == 3
@test findnext(s^-1*t^-1, c*s^-1,3) == 3 @test findnext(s^-1*t^-1, c*s^-1,3) == 3
@test findnext(s^-1*t^-1, c*s^-1*t^-1,4) == 5 @test findnext(s^-1*t^-1, c*s^-1*t^-1, 4) == 5
@test findfirst(c, c*t) === nothing @test findfirst(c, c*t) === nothing
@test findlast(s^-1*t^-1, c) == 3
@test findprev(s, s*t*s*t, 4) == 3
@test findprev(s*t, s*t*s*t, 2) == 1
@test findlast(t^2*s, c) === nothing
w = s*t*s^-1 w = s*t*s^-1
subst = Dict{FreeGroupElem, FreeGroupElem}(w => s^1, s*t^-1 => t^4) subst = Dict{FreeGroupElem, FreeGroupElem}(w => s^1, s*t^-1 => t^4)
@test Groups.replace(c, s*t=>one(G)) == s^-1*t^-1 @test Groups.replace(c, s*t=>one(G)) == s^-1*t^-1