Ngôn ngữ: Sự đối lập

Một ngôn ngữ hài hước để nói được tạo ra bằng cách áp dụng quy trình sau đây cho mỗi từ:

1. Đặt opsau mỗi phụ âm. Vì vậy, Codetrở thànhCopodope .

Vâng, đó là nó. Với mục đích của thử thách này,y luôn luôn là một phụ âm.

Thách thức: Khử trừ

Cho một từ bị từ chối, trả lại từ gốc. Đầu vào sẽ chỉ chứa các chữ cái. Chữ cái đầu tiên có thể được viết hoa. Từ gốc sẽ không bao giờ trống và sẽ luôn chứa nguyên âm.

Các trường hợp thử nghiệm:

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 byte

Í.“op

Hãy thử trực tuyến!

00000000: cd2e 936f 70                             ...op

Đã lưu 7 byte nhờ nhận thức của @ Xnor rằng vì đầu vào phải luôn luôn bị thay đổi, chúng tôi không phải kiểm tra nguyên âm.

Võng mạc , 9 byte

(?!\G)op

Hãy thử trực tuyến!

Thay vì kiểm tra xem ký tự trước có phải là phụ âm hay không, chúng tôi chỉ đảm bảo rằng dòng điện opkhông liền kề với đầu chuỗi hoặc khớp trước đó. Trường hợp duy nhất mà chúng ta có thể khớp với một lỗi không chính xác oplà nếu chuỗi gốc chứa một op(kết quả là opop). Nhưng trong trường hợp đó, chúng tôi sẽ chỉ loại bỏ cái đầu tiên opthay vì cái thứ hai và kết quả sẽ giống nhau.

Python , 42 byte

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

Hãy thử trực tuyến!

Nếu tôi không nhầm, bạn chỉ có thể thay thế tất cả ?opvới ?mà không quan tâm đến nguyên âm. Nếu chuỗi ban đầu chứa op, thì nó được chọn thành opopvà chuỗi thay thế trả về opvà không tiếp tục. Điều này là do mẫu khớp với ?opkhông thể trùng nhau, do đó chỉ có một mẫu opbị xóa.

Một giải pháp không phải regex dài hơn 5 byte.

Python , 47 byte

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

Dùng thử trực tuyến

Perl 5 , 10 + 1 = 11 byte

s/.\Kop//g

Hãy thử trực tuyến!

Chạy với -p(1 byte hình phạt); ngôn ngữ chơi gôn có thể tự động ẩn I / O, nhưng Perl cần một tùy chọn cho nó.

Khi tôi thấy câu trả lời của @ xnor , tôi nhận ra rằng nó có thể được cải thiện bằng cách sử dụng tính năng regex dành riêng cho Perl; s/a\Kb/c/gtương đương với s/ab/ac/g(nói cách khác, s///chỉ thay thế những thứ sau cái đầu tiên \K). Vì vậy, đây là cách nó trông như thế nào trong Perl.

Võng mạc , 15 8 byte

(.)op
$1

Hãy thử trực tuyến!

-7 byte nhờ Kevin Cruijssen

Đi , 103 92 byte

Phải ... biên dịch ... Các hàm tích hợp có tên lạ. : P

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

Hãy thử trực tuyến!

Haskell (93 62 61 byte)

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

cảm ơn ý kiến ​​@nimi trong ý kiến!

PHP , 36 byte

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

Hãy thử trực tuyến!

Japt , 9 byte

r"%Vop"_g

Dùng thử trực tuyến

JavaScript (ES6), 35 byte

Thêm vào f=lúc bắt đầu và gọi như thế f(arg).

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

Tôi ngạc nhiên không ai đăng một giải pháp JavaScript nào ....

Kiểm tra đoạn trích

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 byte

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

Hãy thử trực tuyến!

/// , 18 byte

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

Hãy thử trực tuyến!

Lưu ý rằng đoạn mã này muốn thay thế opbằng một ., nhưng sau đó có một sự thay thế được xác định nơi opđược đưa trở lại vào chuỗi. Lệnh thứ hai đó sẽ được opthay thế bằng một .(và do đó chèn một .kết quả cuối cùng), vì vậy tôi đã sử dụng một \giữa ovà pđể phá vỡ mẫu.

APL (Dyalog) , 13 byte

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

Hãy thử trực tuyến!

Đơn giản là PCRE R đặt bất kỳ ký tự nào theo sau "op" với chính ký tự đó.

Pha lê, 39 byte

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

Làm thế nào nó hoạt động

Nó chỉ đơn giản là tìm kiếm từng phụ âm, theo sau là chuỗi op. Nếu vậy, chỉ thay thế chuỗi đó bằng phụ âm được tìm thấy trước : ([^aeiou]).

Dùng thử trực tuyến

Java 8, 36 26 byte

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

-10 byte bằng cách thay thế [^aeiou]bằng ., nhờ lời giải thích của @xnor trong câu trả lời Python của anh ấy .

Hãy thử nó ở đây.

Ruby , 34 27 22 + 1 = 23 byte

-4 byte nhờ vào RJHunter.

+1 byte cho -pcờ.

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

Hãy thử trực tuyến!

sed, 22 byte

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

Đọc từ STDIN cho đến khi EOF và đưa ra chuỗi khử tối ưu
Sử dụng kỹ thuật giảm độ dài tương tự từ câu trả lời Python của @ xnor

R , 29 byte

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

Hãy thử trực tuyến!

Giống như hầu hết các giải pháp khác ở đây, bắt nhân vật theo sau bởi op, thay thế nó bằng chính nhân vật.