Натхненний C -директивом #define.

Виклик

Дано одну фразу з деяким псевдонімом і один масив з кожним текстом псевдоніма. Виведіть початкову фразу, замінивши кожен псевдонім відповідним текстом.

Псевдонім визначається одним різким, #а за ним індексом у масиві (індекс може починатися з нуля або одиниці). Псевдонім може містити інший псевдонім всередині свого тексту, і ви повинні вирішити всі їх (можливо, рекурсивно). Можна припустити, що псевдонім ніколи не зіткнеться з нескінченним циклом. Псевдонім не матиме провідних нулів ( #02це не псевдонім у індексі 2, це псевдонім у індексі, 0за яким іде текст 2).

Можна припустити, що масив не буде пропускати 20 елементів у довжину.

Ви можете написати програму, або функцію або навіть #define-це було б непогано :)

Ви також можете використовувати інший метод введення, який краще відповідає вашій мові.

Приклад

phrase: "#0 & #3"
array: [
    "Programming #1",
    "Puzzles",
    "Code",
    "#2 Golf"
]
output: "Programming Puzzles & Code Golf"

Крок за кроком:

0> "#0 & #3"
1> "Programming #1 & #2 Golf"
2> "Programming Puzzles & Code Golf"

Оскільки це код-гольф, найкоротша відповідь у байтах виграє!

Ще одні зразки

phrase: "#0!"
array: [
    "We are #1",
    "#2",
    "#3",
    "#4 !",
    "graduating"
]
output: "We are graduating !!"

phrase: "##0#1#0#21#3#4"
array: [
    "a",
    "m",
    "z",
    "n",
    "g"
]
output: "#amaz1ng"

phrase: "##1#23"
array: [
    "WEIRD",
    "0 C",
    "AS"
]
output: "WEIRD CAS3"

phrase: "#1#7#6y#4#7#10s#7b#11#0#0#11r#7#0h#6#5#2#5#9#4."
array: [
    "t",
    "#12#3",
    "#11ga#3",
    "#0#10v#11",
    "#0h#10#8g",
    "#7#8",
    "a#8",
    " ",
    "n",
    "o",
    "i",
    "e",
    "P#9s#10"
]
output: "Positive anything is better than negative nothing."

Наведені вище приклади використовували масив з індексом, що починається з нуля.

JavaScript (ES6) 58

Рекурсивна функція

f=(s,h,r=s.replace(/#(1?\d)/g,(_,x)=>h[x]))=>r==s?r:f(r,h)

Тест

f=(s,h,r=s.replace(/#(1?\d)/g,(_,x)=>h[x]))=>r==s?r:f(r,h)

// Version without default parameters, same length but using a global
// f=(s,h)=>(r=s.replace(/#(1?\d)/g,(_,x)=>h[x]))==s?r:f(r,h)

console.log=x=>O.textContent+=x+'\n'

;[
  ['##1#23',['WEIRD','0 C','AS']],
  ["#0!",["We are #1","#2","#3","#4 !","graduating"]],
  ["##0#1#0#21#3#4",["a","m","z","n","g"]],
  ["##0#1#0#21#13#4",["a","m","z","","g","","","","","","","","","n"]],
  ["#1#7#6y#4#7#10s#7b#11#0#0#11r#7#0h#6#5#2#5#9#4.",
    ["t","#12#3","#11ga#3","#0#10v#11","#0h#10#8g","#7#8","a#8"," ","n","o","i","e","P#9s#10"]
  ],
  ["#0 & #3",["Programming #1","Puzzles","Code","#2 Golf"]]
].forEach(t=>{
  var a=t[0],b=t[1]
  console.log(a+' ['+b+']\n -> '+f(a,b))
})

<pre id=O></pre>

Математика, 74 байти

FixedPoint[#~StringReplace~a&,a=0;a=Reverse["#"<>ToString@a++->#&/@#2];#]&

Не надто складна. Більшість вона присвячена лише створенню індексів.

Джулія, 112 107 66 байт

f(s,x)=(r=replace(s,r"#1?\d",m->x[1+parse(m[2:end])]))==s?s:f(r,x)

Це рекурсивна функція, яка приймає рядок у масив і повертає рядок. Він використовує індексацію на основі 0.

Почнемо з побудови рядка r як вхідного рядка s з усіма збігами регулярного виразу, #1?\dзаміненого елементом x, відповідним 1 + цілому числу, розібраному поза збігом. Якщо це дорівнює s , повертаємо s , інакше повторюємо, передаючи r як рядок.

С, 269 232

#define f(p,a,l)char*n,o[999],i=0,c,x;for(strcpy(o,p);o[i];)o[i]==35&isdigit(o[i+1])?c=o[i+1]-48,c=isdigit(o[i+2])&c?10*c+o[i+2]-48:c,n=a[c<l?c:c/10],x=strlen(n),memmove(o+i+x,o+i+2+c/10,strlen(o+i)),i=!memmove(o+i,n,x):++i;puts(o);

Як вимагається, єдине #defineрішення проблеми! C макроси не можуть бути рекурсивними, тому проблему довелося вирішувати ітеративно. Макрос бере 3 аргументи; словосполучення p, масив aі довжина масиву l. Я лише позбавив пробілу від мого незворушеного рішення; Я знаю, що ще кілька персонажів я можу зберегти, але не думаю, що це отримає мене нижче 200. Це, безумовно, не буде конкурентним рішенням. Рішення повністю гольф. Нерозпущений розчин у вигляді функції нижче:

f(char*p,char**a,int l){
  char o[999]={0},i=0;
  strcpy(o,p);
  while(o[i]){
    if(o[i]=='#'&&isdigit(o[i+1])){
      int c = o[i+1]-'0';
      if(isdigit(o[i+2])&&c)
        c=10*c+o[i+2]-'0';
      if(c>=l)
        c/=10;
      char *n=a[c];
      memmove(o+i+strlen(n),o+i+2+c/10,strlen(o+i));
      memmove(o+i,n,strlen(n));
      i=0;
    }else{
      i++;
    }
  }
  puts(o);
}

І тестовий код:

void test(char *phrase, char **array, int length) {
  f(phrase, array, length);
}

main() {
  const char *t1[] = {
    "Programming #1","Puzzles","Code","#2 Golf"
  };
  test("#0 & #3", t1, 4);

  const char *t2[] = {
    "We are #1","#2","#3","#4 !","graduating"
  };
  test("#0!", t2, 5);

  const char *t3[] = {
    "a","m","z", "n","g"
  };
  test("##0#1#0#21#3#4", t3, 5);

  const char *t4[] = {
    "WEIRD","0 C","AS"
  };
  test("##1#23", t4, 3);

  const char *t5[] = {
    "t","#12#3","#11ga#3","#0#10v#11","#0h#10#8g","#7#8","a#8"," ","n","o","i","e","P#9s#10"
  };
  test("#1#7#6y#4#7#10s#7b#11#0#0#11r#7#0h#6#5#2#5#9#4.", t5, 13);
}

EDIT: Працював над якою магією в гольфі. Це приблизно так само коротко і нечитабельно, як я думаю, це може отримати.