让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并输出结果。

Wolfram语言（数学），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

蒂奥