пусть S, aи bкаждый представляет собой строку

Цель: Написать стандартную строку заменить функцию , где вы заменить все вхождения aв строку Sс bтех пор , как aэто уже не часть экземпляраb

например, если у нас есть строка S=My oh my that there is a big ol' that

и мы хотели сделать фантазии заменить a = thatи b = that thereмы бы заменить каждый экземпляр thatс that thereтех пор , как экземпляр thatуже не является экземпляромthat there

Таким образом, в этом случае вывод будет: My oh my that there is a big ol' that there

Первый thatне заменяется, потому что он уже является частью экземпляраthat there

Примечания

• Все 3 входа должны быть строками, содержащими только печатные символы ascii

• Ввод может быть дан как 3 отдельные строки или список из 3 строк

• Ввод будет в порядке S, a, bесли иное не указано в ответе

• Чтобы aсчитаться частью b, все экземпляры aдолжны быть частью экземпляра.b

Объяснение некоторых угловых случаев

Input:  ["1222", "22", "122"]
Output: "12122"

В приведенном выше примере последний 22заменяется. Даже если его часть является частью экземпляра b, его целостность НЕ является частью экземпляра b. Поскольку весь экземпляр aне является частью экземпляра, bон заменяется.

Input:  ["123 ", "23", "12"]
Output: "112 "

Этот тестовый пример иллюстрирует тот же случай, что и выше, но, возможно, немного более наглядно. Опять же, 2посередине является как частью экземпляра, aтак и частью экземпляра b, однако, поскольку все aне является частью экземпляра, bон все равно заменяется.

Input: ["Empty", "", "p"]
Output: "pEpmptpyp"

В приведенном выше контрольном примере пустая строка до и после pне заменяется, поскольку она может рассматриваться как часть экземпляра p.

Другие тестовые случаи

Input:  ["aabbaa", "aa", "aabb"]
Output: "aabbaabb"

Input:  ["Hello World!", "o", " no"]
Output: "Hell no W norld!"

Input: ["Wow, oh wow, seriously WOW that's... wow", "wow", "WOW,"]
Output: "Wow, oh WOW,, seriously WOW that's... WOW,"

Input: ["Empty", "", "b"]
Output: "bEbmbpbtbyb"

Input: ["Empty", "b", "br"]
Output: "Empty"

Input: ["Empty", "pty", "Empty"]
Output: "Empty"

Input:  ["aabbaaa", "aa", "PP"]
Output: "PPbbPPa"

Input:  ["121212","1","121"]
Output: "121212"

Это вопрос для Code-Golf, поэтому выигрывает самый короткий ответ в байтах.

Perl 6 , 76 байт

{$^b;$^a;&{S:g/$a<?{$!=$/;all m:ex/$b/>>.&{$!.to>.to||.from>$!.from}}>/$b/}}

Попробуйте онлайн!

Блок анонимного кода, который принимает ввод карри, как f(a,b)(s).

Я почти уверен, что это соответствует цели вопроса. По сути, он делает замену только в том случае, если позиция aне находится ни в одном из перекрывающихся совпадений b.

Древесный уголь , 55 байт

≔⁰εＦ⌕ＡθηＦ‹‹ιε⬤⌕Ａθζ∨‹ικ›⁺ιＬη⁺κＬζ«≔⁺⁺ω✂θει¹ζω≔⁺ιＬηε»⁺ω✂θε

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

≔⁰ε

Инициализируйте переменную, чтобы показать, где закончилось последнее замененное совпадение.

Ｆ⌕Ａθη

Найти все совпадающие совпадения aв S.

Ｆ‹‹ιε

Если следующий матч не перекрывает последнюю успешную замену ...

⬤⌕Ａθζ∨‹ικ›⁺ιＬη⁺κＬζ«

... и это также не перекрывает копию bв S...

≔⁺⁺ω✂θει¹ζω

... затем объединить промежуточную подстроку между последним совпадением и этим совпадением с bвыходной строкой ...

≔⁺ιＬηε

... и обновить последнюю переменную конца совпадения до конца этого нового совпадения.

»⁺ω✂θε

В конце добавьте остаток Sи выведите результат.

Wolfram Language (Mathematica) , 43 122 96 88 байт

##2~StringReplacePart~Cases[#2~P~#,{a_,b_}/;And@@(#2<b||#>a&@@@P@##2)]&
P=StringPosition

Попробуйте онлайн!

+79: должно быть исправлено.

Звоните как f[a,S,b].

                                                                      & (* a function which finds *)
                            #2~P~#,                                     (* the positions {start,end} where a occurs in S *)
                      Cases[       {a_,b_}/;And@@(#2<b||#>a&@@@     )]  (* which are not a subrange of any of the *)
                                                               P@##2    (* positions of b in S, *)
##2~StringReplacePart~                                                  (* and replaces those parts of the string with b *)
P=StringPosition

Perl 5 ( -lpF/;/), 41 байт

($_,$a,$b)=@F;s/(?<!(?=$b).)(?!$b)$a/$b/g

TIO