kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2025-03-08 07:01:43 +01:00
Code Issues Releases Wiki Activity

rename join_free_symbol to free_reduce

Browse Source
This commit is contained in:
kalmar 2017-05-11 17:51:16 +02:00
parent 7b564d5e89
commit 12cf72b476
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Groups.jl
View File

@ -41,7 +41,7 @@ convert{T<:GSymbol, W<:Word}(::Type{W}, s::T) = GWord{T}(s)
end
length(W::GWord) = sum([length(s) for s in W.symbols])
function join_free_symbols!(W::GWord)
function free_reduce!(W::GWord)
reduced = true
for i in 1:length(W.symbols) - 1
if W.symbols[i].gen == W.symbols[i+1].gen
@ -61,7 +61,7 @@ function reduce!{T}(W::GWord{T})
else
reduced = false
while !reduced
reduced = join_free_symbols!(W)
reduced = free_reduce!(W)
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
end
end