ภาษา: การต่อต้าน

ภาษาตลกที่จะพูดถูกสร้างขึ้นโดยใช้กระบวนการต่อไปนี้กับแต่ละคำ:

1. วางopตามพยัญชนะแต่ละตัว ดังนั้นจะกลายเป็นCodeCopodope

ใช่แค่นั้นแหละ สำหรับจุดประสงค์ของการท้าทายyนี้เป็นพยัญชนะเสมอ

The Challenge: การคัดค้าน

ให้คำที่เป็นปฏิปักษ์คืนคำเดิม ข้อมูลที่ป้อนจะประกอบด้วยตัวอักษรเท่านั้น อักษรตัวแรกอาจเป็นตัวพิมพ์ใหญ่ คำเดิมจะไม่ว่างเปล่าและมักจะมีสระ

กรณีทดสอบ:

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

บันทึกแล้ว 7 ไบต์ด้วยความตระหนักของ @ Xnorว่าเนื่องจากอินพุตต้องถูกคัดค้านอยู่เสมอเราไม่จำเป็นต้องตรวจสอบสระ

เรติน่า 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ถูกลบเพียงรายการเดียว

โซลูชันที่ไม่ใช่ regex ยาวกว่า 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ฉันรู้ว่าสามารถปรับปรุงได้โดยใช้คุณสมบัติ regex เฉพาะ Perl s/a\Kb/c/gเทียบเท่ากับs/ab/ac/g(ในคำอื่น ๆs///เพียงแทนที่สิ่งหลังจากแรก\K) ดังนั้นนี่คือลักษณะของ Perl

เรติน่า15 15ไบต์

(.)op
$1

ลองออนไลน์!

-7 ไบต์ขอบคุณ Kevin Cruijssen

ไป , 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ด้วย a .แต่ในภายหลังจะมีการแทนที่ที่กำหนดซึ่งopจะถูกใส่กลับเข้าไปในสตริง คำสั่งที่สองนั้นจะมีการopแทนที่ด้วย.(และแทรก a .ลงในผลลัพธ์สุดท้าย) ดังนั้นฉันจึงใช้เครื่องหมาย\ระหว่างoและ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")

-10 ไบต์โดยการแทนที่[^aeiou]ด้วย.ขอบคุณ@xnor 's คำอธิบายในคำตอบของเขางูหลาม

ลองที่นี่

Ruby , 34 27 22 + 1 = 23 ไบต์

-4 ไบต์ต้องขอบคุณ RJHunter

+1 ไบต์สำหรับ-pแฟล็ก

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

ลองออนไลน์!

sed, 22 ไบต์

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

อ่านจาก STDIN จนกระทั่ง EOF และเอาท์พุทสตริงที่ไม่มีปฏิสนธิ
ใช้เทคนิคการลดความยาวเดียวกันจากคำตอบ Python ของ @ xnor

R , 29 ไบต์

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

ลองออนไลน์!

เหมือนกับโซลูชันอื่น ๆ ที่นี่จับตัวอักษรตามด้วย op แทนที่ด้วยตัวมันเอง