语言：Oppification

通过对每个单词应用以下过程来创建一种有趣的语言：

1. 放在op每个辅音之后。如此Code成为Copodope。

对，就是那样。为了这个挑战的目的，y总是辅音。

挑战：去势化

给定一个单词，返回原始单词。输入内容仅包含字母。首字母可以大写。原始单词永远不会为空，并且始终包含元音。

测试用例：

Oppified      ->         Original 
a                        a
I                        I
itop                     it
opop                     op
Opop                     Op
popopop                  pop
Copopop                  Cop
opopopop                 opop
Kopicopkop               Kick
Asopia                   Asia
soptopopop               stop
hopoopopsop              hoops
hopoopopedop             hooped
ooooohop                 oooooh
aaaopopaaa               aaaopaaa
Popopopsopicoplope       Popsicle
gopaloplopopopinopgop    galloping
aopopbopopopcopopop      aopbopcop

V，12，5字节

Í.“op

在线尝试！

00000000: cd2e 936f 70                             ...op

由于@Xnor意识到必须始终选择输入，因此节省了7个字节，因此我们不必检查元音。

视网膜，9字节

(?!\G)op

在线尝试！

无需检查前面的字符是否是辅音，我们只需确保当前op字符与字符串的开头或上一个匹配项不相邻即可。我们唯一可以匹配不正确的情况op是原始字符串是否包含op（导致opop）。但是在那种情况下，我们将只删除第一个op而不是第二个，结果将是相同的。

Python，42字节

lambda s:re.sub('(.)op',r'\1',s)
import re

在线尝试！

如果我没有记错的话，你可以替换所有?op带?，而无需关心元音。如果原始字符串包含op，则它被选择为opop，并且替换字符串将其返回给op并且不再返回。这是因为匹配的模式?op不能重叠，因此仅op删除了一个。

非正则表达式解决方案要长5个字节。

Python，47个字节

f=lambda s:s and s[0]+f(s[1+2*(s[1:3]=='op'):])

在线尝试

Perl 5，10 +1 = 11字节

s/.\Kop//g

在线尝试！

运行-p（1个字节的罚款）；高尔夫语言可能会自动执行隐式I / O，但Perl需要一个选项。

当我看到@xnor的答案时，我意识到可以使用Perl特有的正则表达式功能来改进它。s/a\Kb/c/g等价于s/ab/ac/g（换句话说，s///仅替换第一个之后的东西\K）。这就是Perl的外观。

视网膜，15 8字节

(.)op
$1

在线尝试！

-7个字节，感谢Kevin Cruijssen

Go，103 92字节

必须...编译...内置函数的名称很奇怪。：P

import."regexp"
func f(s string)string{return MustCompile("(.)op").ReplaceAllString(s,"$1")}

在线尝试！

哈斯克尔（93 62 61字节）

a(x:'o':'p':r)|notElem x"aeiouAEIOU"=x:a r
a(x:r)=x:a r
a x=x

感谢@nimi在评论中的建议！

PHP，36字节

<?=preg_replace("#.\Kop#","",$argn);

在线尝试！

Japt，9字节

r"%Vop"_g

在线尝试

JavaScript（ES6），35个字节

f=在开始处添加并调用f(arg)。

s=>s.replace(/([^aeiou])op/gi,"$1")

令我惊讶的是，还没有人发布JavaScript解决方案。

测试片段

let f=
s=>s.replace(/([^aeiou])op/gi,"$1")

console.log("a" + " -> " + f("a"));
console.log("I" + " -> " + f("I"));
console.log("itop" + " -> " + f("itop"));
console.log("opop" + " -> " + f("opop"));
console.log("Opop" + " -> " + f("Opop"));
console.log("popopop" + " -> " + f("popopop"));
console.log("Copopop" + " -> " + f("Copopop"));
console.log("opopopop" + " -> " + f("opopopop"));
console.log("Kopicopkop" + " -> " + f("Kopicopkop"));
console.log("Asopia" + " -> " + f("Asopia"));
console.log("soptopopop" + " -> " + f("soptopopop"));
console.log("hopoopopsop" + " -> " + f("hopoopopsop"));
console.log("hopoopopedop" + " -> " + f("hopoopopedop"));
console.log("ooooohop" + " -> " + f("ooooohop"));
console.log("aaaopopaaa" + " -> " + f("aaaopopaaa"));
console.log("Popopopsopicoplope" + " -> " + f("Popopopsopicoplope"));
console.log("gopaloplopopopinopgop" + " -> " + f("gopaloplopopopinopgop"));
console.log("aopopbopopopcopopop" + " -> " + f("aopopbopopopcopopop"));

C（gcc），83个字节

main(c,v)char**v;{for(;*v[1];strchr("aAeEiIoOuU",putchar(*v[1]++))?:printf("op"));}

在线尝试！

///，18字节

/op/.//../o\p//.//

在线尝试！

请注意，此片段想要替换op了.，但后来有定义，其中一个替代op正在被放回字符串。第二条指令将被op替换为a .（并.在最终结果中插入a ），因此我\在o和之间使用了a p来中断模式。

APL（Dyalog），13个字节

'(.)op'⎕R'\1'

在线尝试！

只需PCRE R即可在字符本身后面加上任何“ op”字符。

水晶，39字节

def o(s)s.gsub(/([^aeiou])op/,"\\1")end

怎么运行的

它仅搜索每个辅音，然后搜索序列op。如果是这样，请仅使用在以下位置找到的辅音来替换该序列：([^aeiou])。

在线尝试

Java 8，36 26字节

s->s.replaceAll("(.)op","$1")

感谢@xnor在他的Python回答中的解释，用替换[^aeiou]为-10个字节。.

在这里尝试。

Ruby，34 27 22 +1 = 23字节

-4个字节，感谢RJHunter。

+1字节的-p标志。

$_.gsub!(/(.)op/,'\1')

在线尝试！

sed，22个字节

sed -E 's/(.)op/\1/g'

从STDIN读取直到EOF并输出去掉运算符的字符串
使用@xnor 的Python答案中的相同长度减少技术

R，29个字节

gsub("(.)op","\\1",scan(,''))

在线尝试！

就像这里的大多数其他解决方案一样，先捕获字符，然后捕获op，然后将其替换为字符本身。