Виклик

Дано два рядки у будь-якому форматі вводу / виводу за замовчуванням, виконайте наступне:

ПРИМІТКА. Перший рядок буде викликом як "дані", а другий - "програма".

1. Змініть програму на нескінченну рядок, яка є просто програмою, що повторюється нескінченно (наприклад 10-> 1010101010...). Виклик буде стосуватися цього як "нескінченної програми"

2. Якщо дані не порожні, виконайте наступне, переглядаючи нескінченну програму:

   а. Якщо поточна команда "0", видаліть найбільшу ліву частину даних. Якщо дані порожні, "0" нічого не робить.

   б. Якщо поточна команда "1", додайте до даних наступний символ у програмі, якщо самий лівий біт у даних - це один.

   c. Якщо дані зараз не порожні, виведіть дані.

Випробування

Дані - ліва частина вводу, а програма - права.

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

Примітки

• Дані та програма складатимуться лише з 0 та 1
• Для даних / програм, які не зупиняються, програму не потрібно зупиняти.
• Дані та програма не будуть порожніми на вводі.
• У вас може бути кілька останніх та нових ліній
• Стандартні лазівки заборонені
• Ви можете використовувати будь-який зручний формат вводу / виводу

Як завжди у коді-гольф , виграє найкоротший код !

Haskell, 77 71 62 байт

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

Спробуйте в Інтернеті!

Редагувати: -9 байт завдяки @xnor.

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#=

Приймає програму як перший вхід, а дані - як другий 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.
• Поставте назад bна початок dif a==1. Це можна скоротити до[b]*a
• Помістіть перший байт cу кінці dif a==1 and b==1. Це можна скоротити до c[0,a*b].
• Якщо у нас є більше даних, роздрукуйте та повторіть.

Python 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

Спробуйте в Інтернеті!

Вкрасти трохи від відповіді Емодімент Невігластва ...

Генератор, який використовує списки 1 і 0 для введення / виводу.

Желе , 40 байт

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

Спробуйте в Інтернеті!

Я припустив, що останні рядки в порядку. Я також пішов зі списком з двох списків нулів та одиниць як вхід, і вихід у stdout.

Пітон 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 байт

-22 байти завдяки @ceilingcat

#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. Потім він перебирає дані, друкуючи "біт" на "біт" і, нарешті, друкує простір для розділення послідовних записів даних.