Завдання

Напишіть програму або функцію, яка з трьох рядків A, B, Cстворює вихідний рядок, де кожен екземпляр Bв Aрекурсивно заміщений C. Рекурсивно заміщення означає повторення заміни, коли на кожному кроці всі неперекриваються екземпляри Bв A(вибрані жадібно зліва направо) замінюються на, Cпоки Bбільше не містяться в A.

Введення-виведення

• Ви можете використовувати будь-який із методів за замовчуванням для вводу / виводу .
• Рядки містять лише друковані символи ASCII (і можуть містити будь-який з них).
• Bніколи не буде порожнім рядком, хоча Aі Cможе бути.
• Рядки слід вважати простим текстом, ви не можете, наприклад, трактувати Bяк шаблон Regex.
• Деякі комбінації входів ніколи не припиняться. У цих випадках ваша програма може робити все, що завгодно.

Тестові справи

Вони у форматі: A/B/C\nOutput

Hello, world!/world!/PPCG
Hello, PPCG

Uppercase is up/up/down
Uppercase is down

ababababa/aba/ccc
cccbcccba

delete/e/{empty string}
dlt

{empty string}/no/effect
{empty string}

llllrrrr/lr/rl
rrrrllll

+-+-+-+/+-+/+
+

ababababa/aba/bada
badabbadbada

abaaba/aba/ab
abb

((())())())/()/{empty string}
)

Приклади, які не припиняються:

grow/ow/oow

loop/lo/lo

05AB1E , 2 байти

`:

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

Пояснення

`    # split input to stack
 :   # replace (until string doesn't change)

Це може бути :за 1 байт , якщо ми не маємо справу з порожніми рядками.

Python 2 , 43 байти

lambda s,*l:eval('s'+'.replace(*l)'*len(s))

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

Оцінює рядок форми

s.replace(*l).replace(*l).replace(*l) ...

Щоб досягти фіксованої точки, якщо така існує, достатньо зробити заміни, що дорівнюють довжині початкового рядка.

ES6 (Javascript), 47, 43 байти

• Збережено 4 байти за допомогою currying (Спасибі @Neil!)

Гольф

c=>b=>R=a=>(x=a.split(b).join(c))==a?x:R(x)

Спробуй це

Q=c=>b=>R=a=>(x=a.split(b).join(c))==a?x:R(x)

function doit() {
  console.log(Q(C.value)(B.value)(A.value));
}

A: <input type="text" value="abaaba" id="A"/> B: <input type="text" value="aba" id="B"/> C: <input type="text" value="ab" id="C"/> <input type="submit" onclick="doit();" value="REPLACE"/>

Сітківка , 27 байт

Кількість байтів передбачає кодування ISO 8859-1.

+`(.+)(?=.*¶\1¶(.*))
$2
G1`

Введення має бути розділене між каналами.

Спробуйте в Інтернеті! (Для зручності використовується формат введення тестового набору, де кожен рядок є косою тестовою коробкою.)

C #, 44 байт

Коротка версія:

r=(a,b,c)=>a==(a=a.Replace(b,c))?a:r(a,b,c);

Приклад програми:

using System;

namespace ConsoleApplication1
{
    class Program
    {
    static void Main(string[] args)
        {
            Func<string, string, string, string> r = null;
            r=(a,b,c)=>a==(a=a.Replace(b,c))?a:r(a,b,c);

            Action <string, string, string, string> test =
                (a, b, c, answer) =>
                {
                    var result = r(a, b, c);
                    Console.WriteLine("A: \"{0}\"\r\nB: \"{1}\"\r\nC: \"{2}\"\r\nResult: \"{3}\"\r\n{4}\r\n\r\n",
                        a, b, c, result, result == answer ? "CORRECT" : "INCORRECT"
                        );
                };

            test("Hello, world!", "world!", "PPCG", "Hello, PPCG");
            test("Uppercase is up", "up", "down", "Uppercase is down");
            test("ababababa", "aba", "ccc", "cccbcccba");
            test("delete", "e", "", "dlt");
            test("", "no", "effect", "");
            test("llllrrrr", "lr", "rl", "rrrrllll");
            test("+-+-+-+", "+-+", "+", "+");
            test("ababababa", "aba", "bada", "badabbadbada");
            test("abaaba", "aba", "ab", "abb");
            test("((())())())", "()", "", ")");


            Console.WriteLine("Press any key...");
            Console.ReadKey();
        }
    }
}

Пояснення: Функція записується як хвостовий рекурсивний вираз, уникаючи ключового слова return і фігурних дужок, використовуючи наступне:

• Присвоєння в дужках повертає присвоєне значення
• Ліва сторона перевірки рівності буде оцінена перед призначенням правої сторони, що дозволяє нам порівнювати до / після вбудованого рядка та все ще отримувати доступ до результату

Це дозволяє нам зберегти це до однієї заяви.

EDIT: Повернувся до опущення типу функції r, оскільки це видається прийнятним. При оголошенні типу з використанням масивів це 68 символів. Без нього це 44 символи.

Japt , 15 байт

@¥(U=UqV qW}a@U

Перевірте це в Інтернеті!

Як це працює

@¥(U=UqV qW}a@U  // Implicit: U, V, W = input strings
            a@U  // Return the first non-negative integer mapped by the function X => U
@          }     // that returns truthily when mapped through this function:
     UqV qW      //   Split U at instances of V, and rejoin with W.
  (U=            //   Set U to this new value.
 ¥               //   Return (old U == new U). This stops the loop when U stops changing.
                 // Implicit: output result of last expression

У Japt є вбудована рекурсивна заміна, але він бачить перший ввід як регулярний вираз. Якби вхідні дані гарантували лише алфавітно-цифрові символи, це трибайтове рішення спрацювало б:

eVW

Якщо вхід було дозволено містити будь-який символ , за винятком ^, \або ], це 12-байтовое рішення буде дійсним замість:

eV®"[{Z}]"ÃW

C #, 33 49 байт

Напевно, один з найменших фрагментів, написаний на C # ... А оскільки Replaceє рідним для stringstruct, немає необхідності в usings ( принаймні, не у вбудованій функції VS, C # Interactive ... )

Крім того, оскільки Bзавжди має значення, код не потребує перевірки.

Гольф

(a,b,c)=>{while(a!=(a=a.Replace(b,c)));return a;}

Безумовно

(a, b, c) => {
    while( a != ( a = a.Replace( b, c ) ) );

    return a;
}

Повний код

using System;

namespace Namespace {
    class Program {
        static void Main( string[] args ) {
            Func<string, string, string, string> func = (a, b, c) => {
                // Recursively ( now truly recursive ) replaces every 'b' for 'c' on 'a',
                // while saving the value to 'a' and checking against it. Crazy, isn't it?
                while( a != ( a = a.Replace( b, c ) ) );

                return a;
            };

            int index = 1;

            // Cycle through the args, skipping the first ( it's the path to the .exe )

            while( index + 3 < args.Length ) {
                Console.WriteLine( func(
                    args[index++],
                    args[index++],
                    args[index++]) );
            }

            Console.ReadLine();
        }
    }
}

Релізи

• v1.1 - +19 bytes- Фіксований розчин не є рекурсивним.
• v1.0 -  33 bytes- Початкове рішення.

Обробка, 75 72 байти

void g(String a,String[]s){for(;a!=(a=a.replace(s[0],s[1])););print(a);}

Друкує результати. Називай це такg("llllrrrr", new String[]{"lr","rl"});

void Q110278(String a, String[]s){             //a is the string to be replaced
                                               //s is the array containing the subsitution

  for(; a!=                                    
            (a = a.replace(s[0], s[1])) ;);

  //for-loop where we continuously perform substitution on a
  //until a is equal to substituted a


  //at the end, print the final version of a
  print(a);
}

Математика, 35 32 байт

#//.x_:>StringReplace[x,#2->#3]&

Аргументи наведені як послідовність. Ніколи не припиняється в протягом , growнаприклад, повертається loopдо loopприкладу. На три байти від пропозиції Мартіна.

Рубін, 29 байт

->a,b,c{1while a.gsub! b,c;a}

Враховуючи 3 аргументи, застосуйте заміну до першого, поки не буде чим замінити більше.

Пояснення

• 1перед тим whileпросто ноп
• gsub!повертає рядок або nilякщо не відбулася заміна

Пайк, 6 байт

hVQtX:

Спробуйте тут!

/// , 3 байти

///

Поставте рядок B після першого косого кута, C після другого та A в кінці, тобто:

/<B>/<C>/<A>

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

JavaScript (Firefox 48 або новіші версії), 43 байти

c=>b=>g=a=>a==(a=a.replace(b,c,'g'))?a:g(a)

Приймає аргументи, викладені у зворотному порядку. Firefox використовував нестандартний третій параметр, для replaceякого вказані прапори regexp. Цей параметр було видалено у Firefox 49.

SmileBASIC, 72 68 байт

I=0DEF R A,B,C
I=INSTR(A,B)?A*(I<0)A=SUBST$(A,I,LEN(B),C)R A,B,C
END

Один з рідкісних випадків, коли виконання функції - насправді SHORTER в SmileBASIC.

Javascript 130 байт

f=(a,b,c)=>a.indexOf(b)<0?a:f(eval("a.replace(/"+b.replace(/([\/\,\!\\\^\$\{\}\[\]\(\)\.\*\+\?\|\<\>\-\&])/g,"\\$&")+"/g,c)"),b,c)

Javascript замінить усіх одночасно, якщо ви надасте йому регулярний вираз. Для того, щоб цей регулярний вигляд працював для всіх значень, всі символи, які використовуються для регулярного вираження, потрібно замінити на уникнуту версію. Нарешті, заміна оцінюється, щоб замінити всі екземпляри B в A на C і передати цю функцію знову до функції.

q, 15 байт

{ssr[;y;z]/[x]}

Приклад:

q){ssr[;y;z]/[x]}["llllrrrr";"lr";"rl"]
"rrrrllll"

посилання на завантаження перекладача

Пояснення: ssr , / (konverge)

Чеддар, 37 байт

(a,b,c)f->a has b?f(a.sub(b,c),b,c):a

По телефону, тому TIO-посилання трохи складно додати. В основному використовує рекурсію під час перевірки, якщо b знаходиться в a. Рішення могло бути, (a,b,c)->a.sub(Regex{b,"cr"},c)але не працює з якихось причин.

Perl 6 , 40 байт

{$^b;$^c;($^a,{S:g/$b/$c/}...*eq*)[*-1]}

Спробуйте (якщо tio.run оновлюється)
Спробуйте змінену версію

Розширено:

{
  $^b;           # declare second parameter ( not used here )
  $^c;           # declare third parameter  ( not used here )

  (

    $^a,         # declare first parameter, and use it to seed the sequence

    {S:g/$b/$c/} # replace globally

    ...          # keep doing that

    * eq *       # until there are two that match

  )[*-1]
}

PHP, 46 байт

function g($a,$b,$c){echo strtr($a,[$b=>$c]);}

PHP, 102 байти

list($n,$s,$a,$b)=$argv;$f=str_replace($a,$b,$s);while($s!=$f){$s=$f;$f=str_replace($a,$b,$s);}echo$f;

Тестові приклади (функціональні)

Тестовий випадок з помилкою циклу

Java - 157 байт

String r(String f){if(f.length()<1)return "";String[]x=f.split("/");if(x[0].contains(x[1]))return r(x[0].replace(x[1],x[2])+'/'+x[1]+'/'+x[2]);return x[0];}

Для порожнього введення він повертає порожній рядок.

Збій з StackOverflowExceptionпомилкою, коли Bпорожній або він подається з подібними даними A/A/A.

Як це працює:

r("ABCD/A/F") returns value of r("FBCD/A/F") which returns FBCD
If there is no more characters to be replaced it returns the final output

Невідомі кодові коди з коментарями:

String r (String f) {
    if(f.length() < 1)
        return ""; // For empty input return empty output
    String[] x = f.split("/"); // Get all 3 parameters
    if (x[0].contains(x[1])) // If input contains replaced value
        return r(x[0].replace(x[1],x[2])+'/'+x[1]+'/'+x[2]); // Return value of r() with one character replaced
    return x[0]; // If nothing to replace return the output(modified input)
}

AutoHotkey, 87 байт

StringCaseSense,On
Loop{
IfNotInString,1,%2%,Break
StringReplace,1,1,%2%,%3%
}
Send,%1%

%1%, %2%і %3%є першими 3 аргументами, переданими функції,
якщо функція очікує змінний аргумент, %s відміняється.
Зміна налаштування чутливості до регістру коштує 19 байт, але без цього ви отримуєте такі речі downpercase is down.