kalmar/SmallHyperbolic
1
0
Fork 0
mirror of https://github.com/kalmarek/SmallHyperbolic synced 2024-11-27 16:35:26 +01:00
Code Issues Releases Wiki Activity

generalize groupparse to arbitrary number of gens

Browse Source
This commit is contained in:
kalmarek 2020-04-23 16:43:40 +02:00
parent 9c9b9b5e37
commit bc183ec5f4
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/groupparse.jl
View File

@ -34,13 +34,17 @@ function parse_magma_fpgroup(str::AbstractString)
end
function parse_magma_fpgroup(gens_str::AbstractVector{<:AbstractString}, rels_str::AbstractVector{<:AbstractString})
rels_expr = Meta.parse.(rels_str)
expr = :([$(rels_expr...)])
gens_arr = Symbol.(gens_str)
gens_expr = Expr(:tuple, gens_arr...)
rels_arr = Meta.parse.(rels_str)
rels_expr = :([$(rels_arr...)])
F = FreeGroup(String.(gens_str))
relations = @eval begin
a,b,c = AbstractAlgebra.gens($F)
$expr
$gens_expr = AbstractAlgebra.gens($F);
$rels_expr
end
return F/relations