нехай 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"

Це питання для коду-гольфу, тому найкоротша відповідь у байтах виграє.

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та виведіть результат.

Мова Вольфрама (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

ТІО