let S, ae bcada um representa uma string

Objetivo: Escreve uma string padrão de função de substituir onde o que você substituir todas as ocorrências aem uma string Scom bcontanto que ajá não faz parte de uma instância deb

por exemplo, se tivermos a string S=My oh my that there is a big ol' that

e queríamos fazer uma substituição sofisticada por a = that e b = that thereque iria substituir cada instância de thatcom that thereo tempo que a instância do thatnão é já um exemplo dethat there

Portanto, nesse caso, a saída seria: My oh my that there is a big ol' that there

O primeiro thatnão é substituído porque já faz parte de uma instância dethat there

Notas

• Todas as 3 entradas devem ser cadeias contendo apenas caracteres ascii imprimíveis

• A entrada pode ser fornecida como três cadeias de caracteres separadas ou uma lista de três cadeias de caracteres

• Entrada será na ordem S, a,b salvo disposição em contrário, a resposta

• Para aser considerada parte de b, toda a instância de adeve fazer parte de uma instânciab

Alguns casos de canto explicados

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

No exemplo acima, o último 22é substituído. Mesmo que parte dela faça parte de uma instância de b, a totalidade NÃO é parte da instância de b. Como a instância inteira de anão faz parte de uma instância, bela é substituída.

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

Este caso de teste ilustra o mesmo caso acima, mas talvez de uma maneira um pouco mais clara. Novamente 2, o meio é parte de uma instância de a, bem como parte de uma instância de b, no entanto, como anem tudo é parte da instância, bele ainda é substituído.

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

No caso de teste acima, a cadeia vazia antes e depois da pnão é substituída, pois pode ser totalmente considerada parte da instância de p.

Outros casos de teste

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"

Esta é uma pergunta para o código-golfe, de modo que a resposta mais curta em bytes vence.

Perl 6 , 76 bytes

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

Experimente online!

Bloco de código anônimo que recebe entrada com curry, como f(a,b)(s).

Tenho certeza de que isso corresponde à intenção da pergunta. Basicamente, ele faz a substituição apenas se a posição de anão estiver em nenhuma das correspondências sobrepostas de b.

Carvão , 55 bytes

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

Experimente online! Link é a versão detalhada do código. Explicação:

≔⁰ε

Inicialize uma variável para mostrar onde a última correspondência substituída terminou.

Ｆ⌕Ａθη

Encontre todas as correspondências sobrepostas de ain S.

Ｆ‹‹ιε

Se a próxima partida não se sobrepuser à última substituição bem-sucedida ...

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

... e também se sobrepõe nenhuma cópia bem S...

≔⁺⁺ω✂θει¹ζω

... concatenar a substring intermediária entre a última correspondência e essa correspondência com ba cadeia de saída ...

≔⁺ιＬηε

... e atualize a última variável de final de correspondência para o final desta nova correspondência.

»⁺ω✂θε

No final, adicione qualquer restante Se produza o resultado.

Wolfram Language (Mathematica) , 43 122 96 88 bytes

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

Experimente online!

+79: deve ser corrigido.

Ligar como 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 bytes

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

TIO