언어 : Oppification

재미있는 언어는 다음 단어를 각 단어에 적용하여 만듭니다.

1. 장소 op각 자음 후. 이렇게 Code됩니다 Copodope.

그래 그거야. 이 도전의 목적을 위해 y항상 자음입니다.

도전 과제 : 탈피

oppified 단어가 주어지면 원래 단어를 반환하십시오. 입력은 문자 만 포함합니다. 첫 글자는 대문자 일 수 있습니다. 원래 단어는 절대로 비어 있지 않으며 항상 모음을 포함합니다.

테스트 사례 :

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두 번째 대신 첫 번째 를 제거 하면 결과는 동일합니다.

파이썬 , 42 바이트

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

온라인으로 사용해보십시오!

제가 잘못 본게 아니라면, 당신은 모든 대체 할 수 ?op와를 ?모음에 대한 걱정없이. 원래 문자열에가 포함되어 있으면으로 op바뀌고 opop대체는 op더 이상 반환 하지 않습니다. 일치하는 패턴이 ?op겹칠 수 없으므로 하나만 op제거 되기 때문 입니다.

비정규 솔루션의 길이는 5 바이트입니다.

파이썬 , 47 바이트

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

온라인으로 사용해보십시오

펄 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

온라인으로 사용해보십시오!

Kevin Cruijssen 덕분에 -7 바이트

이동 , 103 92 바이트

필수 ... 컴파일 ... Go 내장 함수의 이름이 이상합니다. :피

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

온라인으로 사용해보십시오

자바 스크립트 (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 를 삽입합니다) 따라서 and \사이 에 패턴을 사용했습니다.op

APL (Dyalog) , 13 바이트

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

온라인으로 사용해보십시오!

간단히 PCRE R eplace 모든 문자는 문자 자체 "OP"하였다.

수정, 39 바이트

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

작동 원리

단순히 각 자음을 검색 한 다음 sequence를 찾습니다 op. 그렇다면 그 순서를 이전에 찾은 자음으로 만 바꾸십시오 ([^aeiou]).

온라인으로 사용해보십시오

자바 8, 36 26 바이트

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

파이썬 응답에서 @xnor 의 설명 덕분에 -10 바이트로 대체 [^aeiou]하여 ..

여기에서 시도하십시오.

루비 , 34 27 22 + 1 = 23 바이트

RJHunter 덕분에 -4 바이트.

-p플래그의 경우 +1 바이트

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

온라인으로 사용해보십시오!

sed, 22 바이트

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

STOF에서 EOF까지 읽고 해독되지 않은 문자열을 출력
합니다. @xnor의 Python 답변 과 동일한 길이 감소 기술을 사용합니다.

R , 29 바이트

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

온라인으로 사용해보십시오!

여기의 대부분의 다른 솔루션과 마찬가지로 문자 다음에 op를 캡처하여 문자 자체로 바꿉니다.