순환 태그 시스템은 두 개의 기호 알파벳 (내가 사용하는 것이다 구성된 작은, 튜링 완전한 계산 모델 {0,1}의), 유한, 비어 있지 않은 순환 목록 제작 이 두 기호로 구성, 그리고 무제한의 단어 도 구성 그 두 상징.

각 단계에서 :

• 단어 의 첫 번째 요소 가 제거됩니다
• 이 있다면 0, 현재 생산 스킵이고
• 그것이 1현재 생산 이라면 단어 의 끝에 추가됩니다 .
• 다음 생산 이 활성화됩니다. 이것이 마지막 프로덕션 인 경우 첫 번째 프로덕션으로 돌아갑니다.

단어 가 비면 시스템이 정지 합니다 .

예 (위키 백과) :

Productions: (010, 000, 1111)
Initial word: 11001

Generation  Production   Word (before)            Word (after)
   0           010           11001             →     1001010       
   1           000            1001010          →      001010000
   2           1111            001010000       →       01010000
   3           010              01010000       →        1010000
   4           000               1010000       →         010000000
   5           1111               010000000    →          10000000
   6           010                 10000000    →           0000000010
   7           000                  0000000010 →            000000010
   8           1111                  000000010 →             00000010
   9           010                    00000010 →              0000010

작업을 수락하기로 선택한 경우 다음을 수행하는 프로그램 또는 기능을 작성해야합니다.

• 제작물 목록
• 초기 단어
• 세대,

그 세대에 단어 를 인쇄하거나 반환합니다 .

예를 들어

cyclic_tag(
      prod=[[0,1,0],[0,0,0],[1,1,1,1]], 
      word=[1,1,0,0,1], 
      gen=4) => [1,0,1,0,0,0,0]

구현 세부 사항 :

• 알파벳은 중요하지 않습니다. 당신은 사용할 수 있습니다 0와 1, True와 False, T와 NIL,A 와 B, 심지어 1및 0, 또는 어떤 다른 당신은 당신이 일치으로, 가지고 올 수 있습니다. 모든 입력과 출력은 같은 알파벳을 사용해야합니다, 당신은 당신이 사용하고있는 표시해야 0무엇을하고 1.

• 단어 의 길이는 이론적으로 제한이 없어야합니다. 즉, 최대 단어 길이를 하드 코딩 할 수 없습니다. 메모리가 무한한 이상적인 컴퓨터에서 프로그램을 실행하면 이론적으로 프로그램에서 사용할 수 있어야합니다. (인터프리터 / 컴파일러의 한계를 무시할 수 있습니다.)

• 주어진 세대에 도달하기 전에 주어진 시스템이 정지하면 빈 단어를 반환하거나 인쇄해야합니다.

• 빈 프로덕션이 존재하며이를 처리 할 수 ​​있어야합니다. 전체 프로그램을 작성하는 경우 I / O도 처리 할 수 ​​있어야합니다.

편집 : 나는 원래 생성 0을 입력 단어 자체로 만들고 생성 1을 첫 단계의 결과로 만들었습니다. 즉, 나는 당신이 이전 열 을 반환하도록 의도했습니다 . 그러나이 내용을 충분히 명확하게 밝히지 않았으므로 두 가지 옵션을 모두 사용할 것입니다 . 각 세대마다 before 또는 after 열에 값을 반환 할 수 있습니다 . 당신은 당신이를 따르고 있는지 명시해야 후 열을 .또한 어떤 열을 선택해야하는지 일관성이 있어야합니다.

지금부터 일주일에 가장 작은 코드를 수여합니다 (2014 년 10 월 27 일).

GolfScript (입력 형식 및 허용되는 출력 형식에 따라 17-19 바이트)

18 바이트 :

~.@*<{\1,or(@*+}/`

형식으로 입력을 받아서 형식으로 [1 1 0 0 1] [[0 1 0] [0 0 0] [1 1 1 1]] 4출력합니다 [1 0 1 0 0 0 0]. ( 17 바이트 일 수 있음)` 출력 1010000이 허용되는 경우 마지막 이 없는 ).

온라인 데모

19 바이트 :

~.@*<{\0`or(1&@*+}/

형태로 입력을받습니다 "11001" ["010" "000" "1111"] 4 받습니다.

온라인 데모

해부

~        # Evaluate input: stack: word productions gen
.@*<     # Produce a list of the right number of productions with suitable repetition
{        # For each of those productions:
  \      #   Bring the word to the top
  0`or   #   Ensure that we don't get an error if the word is empty
  (1&    #   Pop the first char from the word and evaluate it
  @*     #   Repeat the production that many times
  +      #   Concatenate 0 or 1 copies of the production to the rest of the word
}/       # Endforeach

반복 및 잘림으로 프로덕션 목록을 생성한다는 아이디어 로 Martin Büttner 의 CJam 솔루션 에 감사드립니다 .

하스켈, 55 53 51

(t:w)%p|t=w++p|0<1=w
x%_=x
e w=(!!).scanl(%)w.cycle

이것은 Trueas 1와 Falseas를 사용합니다 0. 예제 실행 :

*Main> let t=True ; f=False
*Main> e [t,f,t] [[f,f,f],[t,t,t]] 4
[False,False,False,False,False]

CJam, 31 30 28 27 24 18 바이트

{_@*<{\_0a?(@*+}/}

이것은 블록 (펑션에 가장 가까운 것)을 정의합니다. 입력은 다음과 같이 스택에 상주합니다.

[1 1 0 0 1] [[0 1 0] [0 0 0] [1 1 1 1]] 9

비슷하게 배열을 남길 것입니다. 01 스택에 s 및 s .

여기에서 테스트하십시오. 입력 한 줄에 첫 번째 줄을 붙여넣고 세 번째 줄에 코드를 붙여 넣고~ 실제로 블록을 평가하려면 를 . 예 :

[1 1 0 0 1] [[0 1 0] [0 0 0] [1 1 1 1]] 9
{_@*<{\_0a?(@*+}/}~

출력이 입력과 같은 형식 일 필요가없는 경우

설명:

_@*<{\_0a?(@*+}/
_@               "Duplicate the generation and pull the productions to the top.";
  *<             "Repeat the productions N times and take the first N elements.";
    {         }/ "For each element in that list, run this block.";
     \           "Swap production and current word W.";
      _0a?       "W = (W != []) ? W : [0]. This is to ensure we can unshift an element.";
          (      "Unshift the first 0 or 1 from the word.";
           @     "Rotate the stack, pulling the production to the top.";
            *    "Repeat it 0 or 1 times.";
             +   "Append to the word.";

단어의 최종 상태는 스택에 남아 있습니다.

다시 방문해 주신 Peter Taylor에게 감사드립니다.

Mathematica, 84 80 77 자

f[_,w_,_]=w;f[p_,{x_,y___},n_/;n>0]:=f[RotateLeft@p,Flatten@{y,p~Take~x},n-1]

예:

f[{{0, 1, 0}, {0, 0, 0}, {1, 1, 1, 1}}, {1, 1, 0, 0, 1}, 4]

{1, 0, 1, 0, 0, 0, 0}

피스 22

세 개의 인수가 모두 별도의 입력으로 필요합니다.

#Vvw=z+tz*@Q%NlQshz)zq

다음과 같은 인수를 취합니다.

11001
["010","000","1111"]
4

설명:

                        : Implicit: z = input(); Q=eval(input())
#                       : Loop until an exception is thrown
 Vvw               )    : for N in range(eval(input()))
    =z                  : assign to z
      +tz               : the sum of the tail of z and
         *@Q%NlQ        : Q[N%len(Q)] times
                shz     : the numeric value of the first character in z
                    zq  : print z then throw exception

파이썬 2-61 67 91105124

c=lambda p,w,g:g*w and c(p[1:]+p[:1],w[1:]+w[0]*p[0],g-1)or w

예쁜 조 기본 답변. 빈 생산이 있다고 가정[[]] .

오전 2시에 골프를 치는 것은 좋지 않은 결정임을 지적한 @xnor에게 감사합니다.

@xnor에게 감사의 말을 전합니다. 저는이 점수의 50 %를 지불해야합니다.

견본:

>>> c([[0,1,0],[0,0,0],[1,1,1,1]],[1,1,0,0,1],4)
[1, 0, 1, 0, 0, 0, 0]

자바 스크립트 ES6-88 바이트

f=(p,w,g,n)=>g?w.replace(/(.)(.*)/,(_,a,b)=>f(p,a*1?b+p[(n=n||0)%p.length]:b,g-1,n+1)):w

브라우저에서 팝업 된 Fry의 답변과 매우 유사합니다. (복사 금지, 엄숙히 맹세합니다)

그러나 내가 문자열 / 정규식 경로를 갔을 때 그가 배열 경로를 갔다는 것처럼 보입니다.

넓히는:

f = (p,w,g,n) =>
    g ?
        w.replace( /(.)(.*)/, (_,a,b) =>
            f( p, a*1 ? b + p[(n=n||0)%p.length] : b, g-1, n+1 )
        )
    :
        w

샘플 출력

f(['010','000','1111'],'11001',4)
"1010000"

이제 골프 언어가 들어오고 우리 모두를 학살하는 것을 지켜보십시오. :디