kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-09-13 08:25:39 +02:00
Code Issues Releases Wiki Activity

replace_all! returns if any modification has been performed

Browse Source
This commit is contained in:
kalmar 2017-07-06 09:18:53 +02:00
parent 95ac3940d7
commit 18ad0a04b6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Groups.jl
View File

@ -352,15 +352,17 @@ function replace(W::GWord, index, toreplace::GWord, replacement::GWord)
end end
function replace_all!{T}(W::GWord{T}, subst_dict::Dict{GWord{T}, GWord{T}}) function replace_all!{T}(W::GWord{T}, subst_dict::Dict{GWord{T}, GWord{T}})
modified = false
for toreplace in reverse!(sort!(collect(keys(subst_dict)), by=length)) for toreplace in reverse!(sort!(collect(keys(subst_dict)), by=length))
replacement = subst_dict[toreplace] replacement = subst_dict[toreplace]
i = findfirst(W, toreplace) i = findfirst(W, toreplace)
while i ≠ 0 while i ≠ 0
modified = true
replace!(W,i,toreplace, replacement) replace!(W,i,toreplace, replacement)
i = findnext(W, toreplace, i) i = findnext(W, toreplace, i)
end end
end end
return W return modified
end end
replace_all{T<:GSymbol}(W::GWord{T}, subst_dict::Dict{GWord{T}, GWord{T}}) = replace_all!(deepcopy(W), subst_dict) replace_all{T<:GSymbol}(W::GWord{T}, subst_dict::Dict{GWord{T}, GWord{T}}) = replace_all!(deepcopy(W), subst_dict)