チャレンジ

既定のI / O形式の2つの文字列を指定して、次の操作を行います。

注：チャレンジでは、最初の文字列を「データ」、2番目の文字列を「プログラム」と呼びます。

1. プログラムを無限の文字列に変更します。無限の文字列は、プログラムが無限に繰り返されるだけです（例10--- 1010101010...）。チャレンジではこれを「無限プログラム」と呼びます

2. データが空ではない間、無限プログラムをループしながら次の操作を実行します。

   a。現在のコマンドが「0」の場合、データの左端のビットを削除します。データが空の場合、「0」は何もしません。

   b。現在のコマンドが「1」の場合、データの左端のビットが1であれば、プログラムの次の文字をデータに追加します。

   c。データが空でない場合、データを出力します。

テストケース

データは入力の左側であり、プログラムは右側です。

100, 0 --> 00, 0
1111, 1 --> 11111, 111111, 1111111, ...
10, 011 --> 0, 0, 0
1110, 011 --> 110, 1101, 11010, 1010...

ノート

• データとプログラムは0と1のみで構成されます
• 停止しないデータ/プログラムの場合、プログラムを停止する必要はありません。
• データとプログラムは入力では空になりません。
• 複数の末尾および先頭の改行がある場合があります
• 標準的な抜け穴は禁止されています
• 任意の便利なI / O形式を使用できます

code-golfと同様に、最短のコードが勝ちます！

Haskell、77 71 62バイト

f@(d:e)#(p:q)=f:[e,f++take d q]!!p#q
_#_=[]
a!b=tail$a#cycle b

オンラインでお試しください！

編集：@xnorのおかげで-9バイト。

C＃（Visual C＃Interactive Compiler）、82バイト

m=>n=>{for(int i=0;m!="";Print(m=n[i++]<49?m.Substring(1):m[0]>48?m+n[i]:m))n+=n;}

オンラインでお試しください！

J、65バイト

(([:(][echo)(}.@[)`([,{.@[#1{],])@.({.@]));1|.])&>/^:(0<0#@{>)^:5

オンラインでお試しください！

私はこれを後でさらにゴルフするかもしれません。実際のプログラム5では最後が無限大_になることに注意してください。ただし、停止しない例を簡単に実行できるように、そこに残しておきます。

Python 3、74バイト

def f(d,p):
 while d:c,*p=p+p[:1];d=(d[1:],d+p[:1]*d[0])[c];d and print(d)

オンラインでお試しください！

引数：：dデータ、p：プログラム。

05AB1E、24 21 バイト

[¹Nèi¬i¹N>è«}ë¦}DõQ#=

プログラムを最初の入力として、データを2番目のinput.inputとして受け取ります。

オンラインでお試しください。

説明：

[             # Start an infinite loop:
 ¹Nè          #  Get the N'th digit of the first (program) input
              #  (NOTES: N is the index of the infinite loop;
              #          indexing in 05AB1E automatically wraps around)
    i         #  If this digit is 1:
     ¬        #   Push the head of the current data (without popping it)
              #   (will take the second (data) input implicitly if it's the first iteration)
      i     } #   If this head is 1:
       ¹N>è   #    Get the (N+1)'th digit of the first (program) input
           «  #    And append it to the current data
    ë }       #  Else (the digit is a 0 instead):
     ¦        #   Remove the first digit from the current data
              #   (will take the second input (data) implicitly if it's the first iteration)
 DõQ          #  If the current data is an empty string:
    #         #   Stop the infinite loop
 =            #  Print the current data with trailing newline (without popping it)

ルビー、62 59バイト

->c,d{p(d)while(a,*c=c;b,*d=d;c<<a;[]!=d=[b]*a+d+c[0,a*b])}

オンラインでお試しください！

どうやって

• コードから最初のビットを取得cし、データd、それらを呼び出すaとb。入れaの終わりにc。
• if bの先頭に戻します。これはda==1[b]*a
• if cの最後にの最初のバイトを置きます。これはに短縮できます。da==1 and b==1c[0,a*b]
• さらにデータがある場合は、印刷して繰り返します。

パイソン2、96の 82バイト

def g(d,p):
 while d:
	c=p[0];p=p[1:]+[c];d=[d[1:],d+[p[0]]*d[0]][c]
	if d:yield d

オンラインでお試しください！

Emodiment of Ignoranceの答えから少しを盗み......

入力/出力に1と0のリストを使用するジェネレーター。

ゼリー、40バイト

;€Ø2œịxØ1œị$Ʋ$Ḋ€2,1œị$?1¦ṙ€1$2¦µ⁺1ịGṄƲ¿Ḣ

オンラインでお試しください！

末尾の改行は問題ないと思いました。また、0と1の2つのリストのリストを入力として使用し、stdoutへの出力を行いました。

Python 1、75バイト

a,b=input()
while a:b=b[1:]+b[:1];a=[a[1:],a+b[:1]*a[0]][b[0]];print a or''

オンラインでお試しください！

C ++（gcc）、178バイト

void a(std::string s,std::string d){while(!s.empty())for(int i=0;i<d.size();i++){if(d[i]=='0')s.erase(0,1);else if(s[0]=='1')s.push_back(d[(i+1)>=d.size()?0:i+1]);std::cout<<s;}}

オンラインでお試しください！

C ++（GCC） 、294の 289 272バイト

@ceilingcatのおかげで-22バイト

#import<cstdio>
#import<queue>
void a(char*e,char*p){std::queue<char>d;for(;*e;)d.push(*e++);for(char*c=p;d.size();c=*++c?c:p){*c-49?d.pop():d.front()-48?d.push(c[1]?c[1]:*p):a("","");if(d.size()){for(int i=0;i++<d.size();d.pop())d.push(putchar(d.front()));putchar(32);}}}

オンラインでお試しください！

かなり簡単なアルゴリズム。データをキューにコピーし、プログラムを繰り返しループします。「0」では、キューの最初の要素（最初の「ビット」）を削除します。1の場合、データの最初の「ビット」が1の場合、プログラムの次の「ビット」をデータに追加します。その後、データをループし、「ビット」ごとに印刷し、最後に連続するデータエントリを区切るスペース。