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

improvements in freereduce

Browse Source
This commit is contained in:
kalmarek 2020-10-07 02:39:00 +02:00
parent a4e0b821b9
commit 38fbed7f76
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/freereduce.jl
View File

@ -4,14 +4,18 @@
#
function freereduce!(::Type{Bool}, w::GWord)
if syllablelength(w) == 1
filter!(!isone, syllables(w))
return syllablelength(w) == 1
end
reduced = true
for i in 1:syllablelength(w)-1
@inbounds for i in 1:syllablelength(w)-1
s, ns = syllables(w)[i], syllables(w)[i+1]
if isone(s)
continue
elseif s.id == ns.id
elseif s.id === ns.id
reduced = false
setmodified!(w)
p1 = s.pow
p2 = ns.pow
@ -19,7 +23,10 @@ function freereduce!(::Type{Bool}, w::GWord)
syllables(w)[i] = change_pow(s, 0)
end
end
filter!(!isone, syllables(w))
if !reduced
filter!(!isone, syllables(w))
setmodified!(w)
end
return reduced
end