이 사이트에서 약간의 시간을 보내면서 가능한 한 짧은 것을 즐기게되었습니다. 이것이 최근에 같은 문자를 두 번 이상 포함하는 문자열로 인해 기분이 상한 이유 일 수 있습니다. 다음 규칙에 따라 주어진 문자열 을 요약 하는 함수 또는 프로그램을 작성 해야합니다.

• 0-condensation으로 시작합니다. 즉, 0 사이의 다른 문자가있는 동일한 문자의 첫 번째 (가장 왼쪽) 쌍을 찾습니다. 이러한 쌍을 찾으면 두 문자 중 하나를 제거하고 다른 0 응축 을 수행하여 알고리즘을 다시 시작하십시오 . 해당 쌍을 찾을 수 없으면 다음 단계로 진행하십시오. 예 :
  programming-C0-> programing
aabbcc-C0-> abbcc
test-C0->test

• 그런 다음 1-condensation을 수행하십시오. 즉, 1 개의 다른 문자가 포함 된 첫 번째 동일한 문자 쌍을 찾으십시오. 이러한 쌍을 찾으면 그 중 하나와 그 사이의 모든 문자를 제거 하고 0-condensation으로 다시 시작하십시오 . 해당 쌍을 찾을 수 없으면 다음 단계로 진행하십시오. 예 :
  abacac-C1-> acac
java-C1->ja

• 계속 2 응축 하고 그래서 최대에 N-결로 와 N 원래 문자열의 길이되고, 응축 한 후 다시 시작 때마다 일부 문자를 제거했습니다. 예 :
  programing-C2-> praming
abcdafg-C3->afg

결과 문자열을 압축 이라고 하며 각 문자를 최대 한 번 포함합니다.

입력:

인쇄 가능한 ASCII 문자의 소문자 문자열입니다.

산출:

응축 위의 규칙에 따라 문자열입니다.

예 :

examples     -> es
programming  -> praming
puzzles      -> puzles
codegolf     -> colf
andromeda    -> a
abcbaccbabcb -> acb
if(x==1):x++ -> if(x+
fnabnfun     -> fun
abcdefae     -> abcde

알고리즘의 작동 방식을 명확히하는 자세한 예 :

fnabnfun -C0-> fnabnfun -C1-> fnabnfun -C2-> fnfun -C0-> fnfun -C1-> fun -C0-> fun 
 -C1-> fun -C2-> ... -C8-> fun

abcbaccbabcb -C0-> abcbacbabcb -C0-> abcbacbabcb -C1-> abacbabcb -C0-> abacbabcb 
 -C1-> acbabcb -C0-> acbabcb -C1-> acbcb -C0-> acbcb -C1-> acb -C0-> acb 
 -C1-> ... -C12-> acb

솔루션과 알고리즘이 허용되는 모든 입력에 대해 동일한 출력을 반환하는 한 접근 방식은 위에서 알고리즘을 구현할 필요가 없습니다. 이것은 코드 골프 도전입니다.

유용한 샌드 박스 댓글에 대한 @Linus 에게 감사합니다 !

자바 스크립트 (ES6), 74 바이트

f=
(s,n=0,m=s.match(`(.).{${n}}\\1`))=>s[n]?m?f(s.replace(...m)):f(s,n+1):s
;

<input oninput=o.textContent=f(this.value)><pre id=o>

Perl, 38 31 30 29 바이트

이것은 골프가 아닌 언어를 훨씬 뒤에 남겨 두어야합니다 ...

라일리$-[0] 덕분에 -1

Dada@{-} 덕분에 -1

에 +1 포함 -p

STDIN에 입력하십시오

condense.pl:

#!/usr/bin/perl -p
s/(.)\K.{@{-}}\1// while/./g

이 27 바이트 버전은 작동하지만 펄이 @-정규식에서 보간되지 않기 때문에 작동하지 않습니다 ( https : //.com/questions/39521060/why-are-etc-not-interpolated-in-strings 참조 )

#!/usr/bin/perl -p
s/(.)\K.{@-}\1// while/./g

CJam , 35 바이트

rL{_,{{(_@_@#I={I)>]sj}*}h]s}fI}j

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

rL{                            }j   | run recursion on input
   _,{                      }fI     | for I from 0 to length(input)
      {                 }h]s        | one pass & clean up
       (_@                          | slice and store leading element A
          _@#I={      }*            | if next A is I steps away
                I)>                 | slice off I+1 element
                   ]sj              | clean up & recursion

당신은 삽입 하여 개별 응축을 볼 수 있습니다ed

파이썬 2 117 104 101 바이트

필요한 교체를 재귀 적으로 수행하십시오. 정규식을 동적으로 작성합니다.

import re
def f(s,i=0):t=re.sub(r"(.)%s\1"%("."*i),r"\1",s);e=s==t;return i>len(t)and t or f(t,i*e+e)

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

펄 53 52

-p에 +1 포함

for($i=0;$i<length;){$i=(s/(.).{$i}\1/\1/)?0:$i+1;}

ideone에서 사용해보십시오 .

Mathematica, 101 바이트

NestWhile[i=0;StringReplace[#,a_~~_~RepeatedNull~i++~~a_:>a,1]&,#,SameQ,2,ByteCount@#]&~FixedPoint~#&

이것을 더 짧게 만드는 방법이 있어야합니다 ...

PHP, 90 바이트

for($s=$argv[$c=1];$s[$i=++$i*!$c];)$s=preg_replace("#(.).{{$i}}\\1#","$1",$s,1,$c);echo$s;

또는 92 바이트

for($s=$argv[1];$s[$i];$i=++$i*!$c)$s=preg_replace("#(.).{".+$i."}\\1#","$1",$s,1,$c);echo$s;   

루비, 75 64 57 바이트

(56 바이트의 코드 + p명령 행 옵션)

정규식 내에서 문자열 보간을 사용하여 교체되는 일치 길이를 제어합니다.

i=0
~/(.).{#{i}}\1/?sub($&,$1)&&i=0: i+=1while i<$_.size

테스트:

$ ruby -p condense.rb <<< fnabnfun
fun

하스켈 , 97 88 바이트

(0?)
(a:s)!(b:t)|a==b=a:t|1<3=a:s!t
s!_=s
m?s|length s<m=s|a<-s!drop m s=sum[m+1|a==s]?a

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

오래된 97 바이트

(a:s)!(b:t)|a==b=a:t|1<3=a:s!t
s!_=s
m?s|length s==m=s|a<-s!drop m s=(last$0:[m+1|a==s])?a
c=(0?)

ideone에서 사용해보십시오 .

설명:

(a:s)!(b:t)|a==b = a:t         --perform condensation
           |1<3  = a:s!t       --recursively compare further
 s   ! _         = s           --no condensation performed

(!)기능을 수행 하나, N 축합 때 회 전체와 회 등 제거 처음 n 문자의 문자열 부여 abcdbe하고 cdbe반복적으로 두 선두 문자를 비교함으로써, 2 응축한다.

m?s|length s==m   = s         --stop before performing length-s-condensation
   |a <- s!drop m s           --a is the m-condensation of s
    = (last$0:[m+1|a==s])?a   --disguised conditional:
                              -- if a==s       if the m-condensation did not change s
                              -- then (m+1)?a  then perform m+1-condensation
                              -- else 0?a      else restart with a 0-condensation

c=(0?)                        -- main function, initialise m with 0