Hầu hết các ngôn ngữ đi kèm với một tích hợp để tìm kiếm một chuỗi cho tất cả các lần xuất hiện của một chuỗi con nhất định và thay thế các chuỗi bằng một chuỗi khác. Tôi không biết bất kỳ ngôn ngữ nào khái quát khái niệm này đến các phần tiếp theo (không nhất thiết phải liền kề). Vì vậy, đó là nhiệm vụ của bạn trong thử thách này.

Đầu vào sẽ bao gồm ba chuỗi A, Bvà C, ở đâu Bvà Cđược đảm bảo có cùng độ dài. Nếu Bxuất hiện như là một sau trong Anó nên được thay thế bằng C. Đây là một ví dụ đơn giản:

A: abcdefghijklmnopqrstuvwxyz
B: ghost
C: 12345

Nó sẽ được xử lý như thế này:

abcdefghijklmnopqrstuvwxyz
      ||      |   ||
abcdef12ijklmn3pqr45uvwxyz

Nếu có một số cách để tìm Bnhư một phần tiếp theo, bạn nên tham lam thay thế phần lớn nhất bên trái:

A: abcdeedcba
B: ada
C: BOB

Result:   BbcOeedcbB
and NOT:  BbcdeeOcbB

Áp dụng tương tự nếu Bcó thể được tìm thấy ở nhiều nơi khác nhau:

A: abcdeedcbaabcde
B: ed
C: 12

Result:   abcd1e2cbaabcde
and NOT:  abcd112cbaabc2e (or similar)

Khi Bkhông xuất hiện A, bạn nên xuất Akhông thay đổi.

Quy tắc

Như đã trình bày ở trên, mất ba chuỗi A, Bvà Cnhư là đầu vào và thay thế trái nhất xảy ra Bnhư một dãy ở Avới C, nếu có bất kỳ.

Bạn có thể viết chương trình hoặc hàm, lấy đầu vào qua STDIN (hoặc thay thế gần nhất), đối số dòng lệnh hoặc đối số hàm và xuất kết quả qua tham số STDOUT (hoặc thay thế gần nhất), tham số trả về hàm hoặc tham số hàm (out).

Bạn có thể lấy ba chuỗi theo bất kỳ thứ tự nhất quán nào mà bạn nên chỉ định trong câu trả lời của mình. Bạn có thể giả định rằng Bvà Ccó cùng chiều dài. Tất cả các chuỗi sẽ chỉ chứa các ký tự chữ và số.

Luật golf tiêu chuẩn được áp dụng.

Các trường hợp thử nghiệm

Mỗi trường hợp thử nghiệm là bốn dòng: A, B, Csau đó là kết quả.

abcdefghijklmnopqrstuvwxyz
ghost
12345
abcdef12ijklmn3pqr45uvwxyz

abcdeedcba
ada
BOB
BbcOeedcbB

abcdeedcbaabcde
ed
12
abcd1e2cbaabcde

121
121
aBc
aBc

abcde
acb
123
abcde

ABC
ABCD
1234
ABC

012345678901234567890123456789
42
TT
0123T5678901T34567890123456789

edcbaedcbaedcbaedcba
abcde
12345
edcbaedcbaedcbaedcba

edcbaedcbaedcbaedcbaedcba
abcde
12345
edcb1edc2aed3bae4cba5dcba

daccdedca
ace
cra
dcrcdadca

aacbcbabcccaabcbabcaabbbbca
abaaaccbac
1223334444
aacbcbabcccaabcbabcaabbbbca

aacbcbabcccaabcbabcaabbbbcac
abaaaccbac
1223334444
1ac2cb2bccc33b3bab4aa4bbbc44

Bảng xếp hạng

Đoạn trích Stack ở cuối bài này tạo ra bảng xếp hạng từ các câu trả lời a) dưới dạng danh sách các giải pháp ngắn nhất cho mỗi ngôn ngữ và b) dưới dạng bảng xếp hạng tổng thể.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

## Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Nếu ở đó bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ phiên dịch), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

## Perl, 43 + 2 (-p flag) = 45 bytes

Bạn cũng có thể đặt tên ngôn ngữ thành liên kết sau đó sẽ hiển thị trong đoạn trích:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

/* Configuration */

var QUESTION_ID = 77719; // Obtain this from the url
// It will be like http://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 8478; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "http://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "http://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    else console.log(body);
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    lang = jQuery('<a>'+lang+'</a>').text();
    
    languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang_raw.toLowerCase() > b.lang_raw.toLowerCase()) return 1;
    if (a.lang_raw.toLowerCase() < b.lang_raw.toLowerCase()) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="language-list">
  <h2>Shortest Solution by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Thạch , 23 22 21 byte

='T€ŒpfṢ€$ḢṬœp³ż⁵$³Ḋ?

Hãy thử trực tuyến! Lưu ý rằng hai trường hợp kiểm tra cuối cùng sẽ hết bộ nhớ.

xác minh

$ head -n 5 test-cases
abcdefghijklmnopqrstuvwxyz
ghost
12345
abcdef12ijklmn3pqr45uvwxyz

$ cat subseq-short
while read s; do
        read p; read r; read o; echo $o; read
        timeout 1s jelly eun $1 "='T€ŒpfṢ€$ḢṬœp³ż⁵$³Ḋ?" "'$s'" "'$p'" "'$r'"
        (($?)) && echo '(killed)'
done < test-cases
$ ./subseq-short
abcdef12ijklmn3pqr45uvwxyz
abcdef12ijklmn3pqr45uvwxyz
BbcOeedcbB
BbcOeedcbB
abcd1e2cbaabcde
abcd1e2cbaabcde
aBc
aBc
abcde
abcde
ABC
ABC
0123T5678901T34567890123456789
0123T5678901T34567890123456789
edcbaedcbaedcbaedcba
edcbaedcbaedcbaedcba
edcb1edc2aed3bae4cba5dcba
edcb1edc2aed3bae4cba5dcba
dcrcdadca
dcrcdadca
aacbcbabcccaabcbabcaabbbbca
(killed)
1ac2cb2bccc33b3bab4aa4bbbc44
(killed)

Làm thế nào nó hoạt động

='T€ŒpfṢ€$ḢṬœp³ż⁵$³Ḋ?  Main link. Arguments: string s, pattern p, replacement r

='                     Compare each character of s with each character of p.
                       This yields a 2D list. Each row corresponds to a char in p.
  T€                   Compute the truthy indices of each row, i.e., the indices
                       of all occurrences of that char in s.
   Œp                  Compute the Cartesian product of the lists of indices.
        $              Combine the two links to the left into a monadic chain:
      Ṣ€                 Sort each list of indices.
     f                   Filter, removing all non-sorted lists of indices.
         Ḣ             Head; take the first (sorted) list of indices.
          Ṭ            Truth; generate a list with 1's at those indices.
           œp³         Partition; split s at all 1's, removing those characters.
                  Ḋ?   If the partition has more than more than one element:
              ż⁵$        Zip the partition with r.
                 ³       Else, return s.

Python 2, 88 byte

def f(a,b,c,o=""):
 for q in a:x=q==b[:1];o+=c[:x]or q;b=b[x:];c=c[x:]
 print[o,a][c>'']

Một hàm lấy trong ba chuỗi và đưa kết quả về STDOUT. Hàm chỉ đơn giản là thực hiện một chuỗi trên chuỗi, lấy char phù hợp và cập nhật b,ckhi chúng ta đi.

Để thử nghiệm (sau khi thay thế printbằng return):

S = """
<test cases here>
"""

for T in S.split("\n\n"):
    A,B,C,D = T.split()
    assert f(A,B,C) == D

Java 7, 141

Tôi nghĩ có một số điều nữa tôi có thể làm với điều này, nhưng tôi phải chạy ngay bây giờ. Nó chỉ là một lần lặp / thay thế đơn giản, giữ một chỉ mục ở A và B.

char[]h(char[]a,char[]b,char[]c){char[]d=a.clone();int i=0,j=0,k=b.length;for(;i<a.length&j<k;i++)if(a[i]==b[j])d[i]=c[j++];return j==k?d:a;}

Whitespaces cho niềm vui của bạn:

char[]h(char[]a,char[]b,char[]c){
    char[]d=a.clone();
    int i=0,j=0,k=b.length;
    for(;i<a.length&j<k;i++)
        if(a[i]==b[j])d[i]=c[j++];
    return j==k?d:a;
}

Lua, 121 byte

Giải pháp đơn giản, gsubcho phép chúng ta lặp lại chính xác một lần trên mỗi ký tự và thay thế chúng trong một thể hiện mới của chuỗi.

Nó nhận đầu vào thông qua 3 đối số dòng lệnh và xuất một chuỗi thành STDOUT.

a,b,c=...d=a:gsub(".",function(s)if b:find(s)then b=b:sub(2)x=c:sub(1,1)c=c:sub(2)return x end end)print(b~=''and a or d)

Ung dung

a,b,c=...               -- unpack the arguments into a, b and c
d=a:gsub(".",function(s)-- iterate over each character of the first argument
  if b:find(s)then      -- if the current character is in the set b
    b=b:sub(2)          -- remove it from b
    x=c:sub(1,1)        -- save the replacement character in x
    c=c:sub(2)          -- remove it from c
    return x            -- replace the current character with x
  end
end)
print(b~=''             -- if b is empty, we replaced all the character
      and a or d)       -- so output the result of gsub, else, output the first argument

Python 3, 127 byte.

Đã lưu 16 byte nhờ Katenkyo.

Vẫn làm việc này một chút, con người nhanh hơn tôi nghĩ.

f=lambda a,b,c:a.replace(b[0],c[0],1)[:a.index(b[0])+1]+f(a[a.index(b[0])+1:],b[1:],c[1:])if b and all(x in a for x in b)else a

Giải thích: Awww yeah, đệ quy.

Các trường hợp thử nghiệm:

assert f('abcdeedcba', 'ada', 'BOB') == 'BbcOeedcbB'
assert f('abcdeedcbaabcde', 'ed', '12') == 'abcd1e2cbaabcde'
assert f('012345678901234567890123456789', '42', 'TT') == '0123T5678901T34567890123456789'
assert f('ABC', 'ABCD', '1234') == 'ABC'

Python 3.5, 87 byte

import re
lambda s,p,r:re.sub('(.*?)'.join(p),'\g<%d>'.join(r)%(*range(1,len(r)),),s,1)

repl.it để xác minh tất cả các trường hợp thử nghiệm .

Làm thế nào nó hoạt động

• '(.*?)'.join(p) xây dựng một mô hình tìm kiếm phù hợp với sự thay thế và bất cứ điều gì giữa các yếu tố của nó.

  Vì các bộ lượng hóa là lười biếng, mỗi cái (.*?)sẽ khớp với càng ít ký tự càng tốt.

  Đối với mẫu ghost, regex được xây dựng là g(.*?)h(.*?)o(.*?)s(.*?)t.

• '\g<%d>'.join(r)%(*range(1,len(r)),) xây dựng chuỗi thay thế, sử dụng định dạng chuỗi.

  Mỗi \g<n>đề cập đến nhóm ^thứ n bị bắt, giống như sẽ.\n

  Để thay thế 12345, chuỗi được xây dựng là 1\g<1>2\g<2>3\g<3>4\g<4>5.

• re.sub(...,...,s,1)thực hiện tối đa một thay thế trong chuỗi s.

Bình thường, 27

.xuXG.*HC,hSI#.nM*FxRcQ1zwQ

Phòng thử nghiệm

Bộ kiểm tra bỏ qua hai trường hợp cuối cùng vì chúng sẽ hết bộ nhớ. Thuật toán được sử dụng ở đây là tìm tất cả các chỉ mục của mỗi ký tự trong chuỗi thứ hai trong chuỗi thứ nhất, sau đó tìm tất cả các thứ tự có thể có của các chỉ số đó và chỉ lấy các chỉ số theo thứ tự được sắp xếp. Sau đó sử dụng một trong những thứ tự này theo thứ tự được sắp xếp làm danh sách các chỉ mục trong chuỗi đầu tiên để cập nhật với các giá trị từ chuỗi thứ ba.

Tôi cảm thấy nên có một cái gì đó ngắn hơn .nM*F...

MATL , 33 byte

y!=[]0b"@n:!<@*fX<h5Mt?}.]]?iw(}x

Hãy thử trực tuyến!

Giải trình

y!      % Implicitly input first two strings. Duplicate the first and transpose
=       % Compare the two strings element-wise. Gives a 2D array with all combinations
[]      % Push empty array. Indices of matching elements will be appended to this
0       % Push a 0. This is the index of last character used up in first string
b       % Bubble up (rearrange elements in stack) to move 2D array to top
"       % For each column of that array (each char of the second string)
  @     %   Push current column
  n:!   %   Transform into column array of consecutive values starting from 1
  <     %   Compare with index of last character used up of first string
  @*    %   Push current column again. Multiply element-wise (logical AND)
  fX<   %   Find index of first matching character, or empty if there's none
  h     %   Append to array containing indices of matching elements
  5Mt   %   Push index of matching character again. Duplicate
  ?}    %   If it's empty
    .   %     Break loop
  ]     %   End if
]       % End for
        % The top of the stack now contains a copy of the index of last matching
        % character, or an empty array if there was no match
?       % If non-empty: all characters were matched
  i     %   Input third string
  w     %   Swap top two elements in stack
  (     %   Assign the characters of the third string to first string at found indices
}       % Else: the original string needs to be output
  x     %   Delete (partial) array of matching indices. Leave original string in stack
        % End if
        % Implicitly display (either modified string or original string)

JavaScript (ES6), 84 byte

(a,b,c)=>[...b].every((q,i)=>r[p=a.indexOf(q,p)]=~p++&&c[i],p=0,r=[...a])?r.join``:a

Giải thích / Kiểm tra

var solution =

(a,b,c)=>
  [...b].every((q,i)=>
    r[p=a.indexOf(q,p)]=~p++&&c[i],
    p=0,
    r=[...a]
  )?r.join``
  :a

// Test
var testCases = `abcdefghijklmnopqrstuvwxyz
ghost
12345
abcdef12ijklmn3pqr45uvwxyz

abcdeedcba
ada
BOB
BbcOeedcbB

abcdeedcbaabcde
ed
12
abcd1e2cbaabcde

121
121
aBc
aBc

abcde
acb
123
abcde

ABC
ABCD
1234
ABC

012345678901234567890123456789
42
TT
0123T5678901T34567890123456789

edcbaedcbaedcbaedcba
abcde
12345
edcbaedcbaedcbaedcba

edcbaedcbaedcbaedcbaedcba
abcde
12345
edcb1edc2aed3bae4cba5dcba

daccdedca
ace
cra
dcrcdadca

aacbcbabcccaabcbabcaabbbbca
abaaaccbac
1223334444
aacbcbabcccaabcbabcaabbbbca

aacbcbabcccaabcbabcaabbbbcac
abaaaccbac
1223334444
1ac2cb2bccc33b3bab4aa4bbbc44`
.split`\n\n`.map(c=>c.split`\n`);
document.write("<pre>"+testCases.map(c=>(r=solution(c[0],c[1],c[2]))+" : "+(r==c[3]?"PASS":"FAIL")).join`\n`);

JavaScript (ES6), 84 76 byte

(a,b,c)=>a.replace(RegExp([...b].join`(.*?)`),c.replace(/\B/g,(_,i)=>'$'+i))

Bởi vì tôi chắc chắn rằng đây là một công việc cho RegExp.

Chỉnh sửa: Đã lưu 8 byte nhờ @ MartinBüttner ♦.

Một cổng của câu trả lời @ KevinLau Ruby mất 82 byte:

([...a],[...b],[...c])=>(d=a.map(e=>e==b[0]?c.shift(b.shift()):e),b[0]?a:d).join``

Tôi cũng đã thử một giải pháp RegExp đệ quy nhưng mất 90 byte:

f=(a,[b,...d],[c,...e])=>b?a.replace(RegExp(b+'(.*'+d.join`.*`+'.*)'),(_,s)=>c+f(s,d,e)):a

Julia, 89 70 byte

f(s,a,b,i=0)=(o=join(["$a "[i+1]!=c?c:b[i+=1]for c=s]);i<endof(a)?s:o)

Sử dụng một chỉ mục iđể lặp qua các chuỗi mẫu / chuỗi thay thế khi chúng ta đi. -19 byte nhờ @Dennis!

C, 98 byte

char*f(i,o,s,r)char*i,*o,*s,*r;{char*I=i,*O=o;for(;*i;++i,++o)*o=*i==*s?++s,*r++:*i;return*s?I:O;}

/ * Mã mở rộng * /

char *f(i, o, s, r)
    char *i, *o, *s, *r;
{
    char *I=i, *O=o;
    for (;  *i;  ++i,++o)
        *o = (*i==*s) ? (++s,*r++) : *i;
    return *s ? I : O;
}

Các đối số là: i nput string, o utput buffer, s earch string, r eplocation.

Sau khi nhớ bắt đầu đầu vào và đầu ra, chúng tôi đi bộ đầu vào, thay thế và tiến lên thay thế bất cứ khi nào chúng tôi nhấn. Cuối cùng, nếu chúng ta hết thay thế, hãy trả lại bộ đệm đầu ra, nếu không thì đầu vào không được sửa đổi.

/ * Kiểm tra * /

struct T
{
    const char *input;
    const char *search;
    const char *replace;
    const char *expected;
};

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main()
{
    int i;
    static const struct T test[] = {
        { "abcdefghijklmnopqrstuvwxyz",
          "ghost",
          "12345",
          "abcdef12ijklmn3pqr45uvwxyz"},
        { "abcdeedcba",
          "ada",
          "BOB",
          "BbcOeedcbB"},
        { "abcdeedcbaabcde",
          "ed",
          "12",
          "abcd1e2cbaabcde"},
        { "121",
          "121",
          "aBc",
          "aBc"},
        { "abcde",
          "acb",
          "123",
          "abcde"},
        { "ABC",
          "ABCD",
          "1234",
          "ABC"},
        { "012345678901234567890123456789",
          "42",
          "TT",
          "0123T5678901T34567890123456789"},
        { "edcbaedcbaedcbaedcba",
          "abcde",
          "12345",
          "edcbaedcbaedcbaedcba"},
        { "edcbaedcbaedcbaedcbaedcba",
          "abcde",
          "12345",
          "edcb1edc2aed3bae4cba5dcba"},
        { "daccdedca",
          "ace",
          "cra",
          "dcrcdadca"},
        { "aacbcbabcccaabcbabcaabbbbca",
          "abaaaccbac",
          "1223334444",
          "aacbcbabcccaabcbabcaabbbbca"},
        { "aacbcbabcccaabcbabcaabbbbcac",
          "abaaaccbac",
          "1223334444",
          "1ac2cb2bccc33b3bab4aa4bbbc44"
        }
    };

    for (i = 0;  i < (sizeof test) / (sizeof test[0]);  ++i) {
        const struct T *t = test+i;
        char *out = malloc(strlen(t->input)+1);
        char *result = f(t->input, out, t->search, t->replace);
        if (strcmp(t->expected, result))
            printf("Failed test %d; result = \"%s\"\n", i, result);
    }
    return EXIT_SUCCESS;
}

R, 76 byte

function(a,b,c){s=substr;for(x in 1:nchar(b)){a=sub(s(b,x,x),s(c,x,x),a)};a}

sử dụng subđể thay thế trận đấu đầu tiên

Ung dung

function(a,b,c){                    # function with 3 arguments as per description
  s=substr;                         # alias for substr (saves 1 byte)
   for(x in 1:nchar(b)){            # index 1 to number character in b
     a=sub(s(b,x,x),s(c,x,x),a)};   # replace first instance of b[x] in a  
                                    # with c[x] and reassign to a
 a}                                 # return a

C ++, 204 byte

Chơi gôn

#include<iostream>
#include<string>
int main(){std::string a, b, c;std::cin>>a>>b>>c;int t=0;for(int x=0;x<b.length();x++){t=a.find(b[x],t);if(t!=-1){a.replace(t,1,c.substr(x,1));}}std::cout<<a;return 0;}

Ung dung

#include<iostream>
#include<string>

int main()
{
    std::string a, b, c;
    std::cin>>a>>b>>c;
    int t = 0;
    for (int x=0;x<b.length();x++) {
        t = a.find(b[x], t);
        if (t != -1) {
            a.replace(t,1,c.substr(x, 1));
        }
    }
    std::cout<<a;
    return 0;
}

Võng mạc , 63 byte

.+$
$&¶;$&
+`^(.)(.*¶)(.)([^;]+);(.*?)\1
$2$4$5$3;
A1`
;

G2=`.

Đầu vào được lấy theo thứ tự B, C, A, cách nhau bằng linefeeds.

Hãy thử trực tuyến.

Haskell, 87 byte

x@((a,b):c)#(d:e)|a==d,([],z)<-c#e=([],b:z)|0<1=(d:)<$>x#e
x#y=(x,y)
a!b=snd.(zip a b#)

Tôi nhận thấy thiếu câu trả lời của Haskell và quyết định sửa nó. Điều này xác định một hàm ternary !với chuỗi thay thế mẫu thứ tự đối số. Hãy thử nó ở đây.

Giải trình

Hàm phụ trợ #lấy danh sách xcác cặp ký tự (mẫu và thay thế) và một chuỗi y. Nếu các ký tự "mẫu" ở xdạng tiếp theo y, nó sẽ trả về danh sách trống và yvới mỗi ký tự mẫu được thay thế bằng đối tác của nó. Nếu không, nó trả về cặp (x,y). Hàm !nén mẫu và chuỗi thay thế vào x, áp dụng #cho xvà chuỗi thứ ba và trả về thành phần thứ hai của kết quả.

x@((a,b):c)#(d:e)  -- First case of #: both arguments nonempty.
  |a==d,           -- If the pattern char matches the string's head,
   ([],z)<-c#e     -- and the pattern's tail is a subsequence of the string's tail,
  =([],b:z)        -- tack the replacement char to the recursion result.
  |0<1             -- Otherwise,
  =(d:)<$>x#e      -- recurse with the same pairs and tack string's head to result.
x#y=(x,y)          -- If either argument is empty, just pair them.

Nếu mẫu là một chuỗi con của chuỗi, mã sẽ chạy trong thời gian O (n) , làm cho một lần đệ quy đi qua chuỗi và tham lam xây dựng thay thế trong quy trình. Tuy nhiên, nếu mẫu không phải là một chuỗi con, nó sẽ chạy trong thời gian O (2 ⁿ ) trong trường hợp xấu nhất. Điều này là do tại mọi vị trí mà mẫu và chuỗi có một ký tự trùng khớp, hàm sẽ tự kiểm tra xem mẫu đó có thực sự là một chuỗi hay không, và tìm ra nó không phải là lần thứ hai để thực sự tính kết quả.

JavaScript (ES6), 100 95 byte

(a,b,c)=>1?(t=[...a].map(e=>b[0]==e?(u=c[0],b=b.slice(1),c=c.slice(1),u):e).join``,b==""?t:a):a

Đây là một hàm Lambda JavaScript hợp lệ. Đầu ra là hàm return. Đưa ra trong ba đối số ( a,b,c). Thêm vào f=lúc bắt đầu và gọi như thế f(arg1,arg2,arg3).

f=(a,b,c)=>1?(t=[...a].map(e=>b[0]==e?(u=c[0],b=b.slice(1),c=c.slice(1),u):e).join``,b==""?t:a):a

console.log(f(prompt("Value for A"),prompt("Value for B"),prompt("Value for C")))

C (gcc), 67 62 61 59 byte

f(s,a,b)char*s,*a,*b;{*s==*a?*s=*b++,a++:1;*a&&f(s+1,a,b);}

Hãy thử trực tuyến!

Octave, 97 byte

function A=U(A,B,C)t=0;for s=B if p=find(A(t+1:end)==s,1) D(t=p+t)=~0;else return;end;end;A(D)=C;

Lặp đi lặp lại sau đó để thay thế; tìm sự xuất hiện đầu tiên của ký tự đầu tiên, tìm ký tự tiếp theo trong chuỗi còn lại, lặp lại. Một điều thú vị của điều này là:

D(t=p+t)=~0

D(     )      %// D is a logical mask of characters to replace in the input string
  t=p+t       %// t is the current end of D 
              %// p is the location of the character to replace
              %// update t and use as index to grow D
        =~0   %// make it so, number 1

Vì ideone vẫn không chấp nhận các chức năng với các tên khác ngoài '', tôi sẽ chỉ để lại một mẫu chạy ở đây. Đầu vào chỉ được hiển thị cho một vài trường hợp thử nghiệm đầu tiên cho ngắn gọn. keylà đầu ra dự kiến, anslà đầu ra chức năng.

A = abcdefghijklmnopqrstuvwxyz
B = ghost
C = 12345
key = abcdef12ijklmn3pqr45uvwxyz
ans = abcdef12ijklmn3pqr45uvwxyz
A = abcdeedcba
B = ada
C = BOB
key = BbcOeedcbB
ans = BbcOeedcbB
A = abcdeedcbaabcde
B = ed
C = 12
key = abcd1e2cbaabcde
ans = abcd1e2cbaabcde
key = aBc
ans = aBc
key = abcde
ans = abcde
key = ABC
ans = ABC
key = 0123T5678901T34567890123456789
ans = 0123T5678901T34567890123456789
key = edcbaedcbaedcbaedcba
ans = edcbaedcbaedcbaedcba
key = edcb1edc2aed3bae4cba5dcba
ans = edcb1edc2aed3bae4cba5dcba
key = dcrcdadca
ans = dcrcdadca
key = aacbcbabcccaabcbabcaabbbbca
ans = aacbcbabcccaabcbabcaabbbbca
key = 1ac2cb2bccc33b3bab4aa4bbbc44
ans = 1ac2cb2bccc33b3bab4aa4bbbc44

Python 3, 123 byte

Một cách tiếp cận khác tôi muốn chia sẻ, đó là một vài byte ngắn hơn. Không có quy tắc chống lại thư viện / regex tiêu chuẩn, phải không?

import re
j=''.join
m='(.*?)'
def f(A,B,C):
 *r,l=(re.findall(m+m.join(B)+'(.*)',A)or[[A]])[0]
 print(j(map(j,zip(r,C)))+l)

Tái bút Đây là sân golf đầu tiên của tôi. Hãy cho tôi biết bất kỳ vấn đề / cải tiến.

Bình thường, 22 byte

|eJ:Ej"(.*?)"+E\$3s.iJ

Xác minh tất cả các trường hợp thử nghiệm trong Trình biên dịch Pyth .

Lý lịch

Chúng tôi xây dựng một biểu thức chính từ mẫu bằng cách nối thêm $và đặt (.*?)giữa tất cả các ký tự. Regex này sẽ khớp với phần tiếp theo sẽ được thay thế và bất cứ thứ gì giữa các phần tử của nó và bất cứ thứ gì cho đến cuối chuỗi.

Vì các bộ lượng hóa là lười biếng, mỗi cái (.*?)sẽ khớp với càng ít ký tự càng tốt.

Đối với ma mẫu, regex được xây dựng là g(.*?)h(.*?)o(.*?)s(.*?)t(.*?)$.

Nếu mẫu phù hợp với đầu vào, nội dung r<str><regex>3 sẽ trả về một mảng chứa tiền tố (mọi thứ trước chuỗi sau), tất cả các nhóm được bắt (mọi thứ ở giữa và sau chuỗi sau) và postmatch (chuỗi trống).

Nếu mẫu không khớp, nội dung sẽ trả về một mảng đơn có chứa đầu vào ban đầu.

Làm thế nào nó hoạt động

|eJ:Ej"(.*?)"+E\$3s.iJQ  (implicit) Store the first line of input in Q.

             +E\$        Read the third line of input (pattern) and append '$'.
     j"(.*?)"            Join the result, separating by "(.*?)".
    E                    Read the third line of input (string).
   :             3       Match the string against the regex, as detailed above.
  J                      Save the returned array in J.
 e                       Extract the last element of J. This is an empty string
                         for a successful match or the original string.
|                        Logical OR; replace an empty string with the following:
                   .iJQ    Interleave J and the replacement.
                  s        Flatten the resulting array of strings.

Thạch , 23 byte

Ṭœpż⁵
0ẋai1
⁴='-;ç\ñ⁴P?

Đây là hai byte dài hơn câu trả lời Jelly khác của tôi , nhưng nó kết thúc ngay lập tức. Hãy thử trực tuyến!

xác minh

$ head -n 5 test-cases
abcdefghijklmnopqrstuvwxyz
ghost
12345
abcdef12ijklmn3pqr45uvwxyz

$ cat subseq-fast
while read s; do
        read p; read r; read o; echo $o; read
        timeout 10s jelly eun $1 "Ṭœpż⁵¶0ẋai1¶⁴='-;ç\ñ⁴P?" "'$p'" "'$s'" "'$r'"
        (($?)) && echo '(killed)'
done < test-cases
$ ./subseq-fast
abcdef12ijklmn3pqr45uvwxyz
abcdef12ijklmn3pqr45uvwxyz
BbcOeedcbB
BbcOeedcbB
abcd1e2cbaabcde
abcd1e2cbaabcde
aBc
aBc
abcde
abcde
ABC
ABC
0123T5678901T34567890123456789
0123T5678901T34567890123456789
edcbaedcbaedcbaedcba
edcbaedcbaedcbaedcba
edcb1edc2aed3bae4cba5dcba
edcb1edc2aed3bae4cba5dcba
dcrcdadca
dcrcdadca
aacbcbabcccaabcbabcaabbbbca
aacbcbabcccaabcbabcaabbbbca
1ac2cb2bccc33b3bab4aa4bbbc44
1ac2cb2bccc33b3bab4aa4bbbc44

Làm thế nào nó hoạt động

⁴='-;ç\ñ⁴P?  Main link. Arguments: pattern p, string s, replacement r

⁴='          Compare each character of s with each character of p.
             This yields a 2D list. Each row corresponds to a char in p.
   -;        Prepend -1 to the 2D list, yielding a ragged array.
     ç\      Cumulatively reduce the array by the second helper link.
         P?  If the product of the resulting list is non-zero:
       ñ       Call the first helper link with the list and s as arguments.
        ⁴      Else, return s.


Ṭœpż⁵        First helper link. Arguments: L (list of indices), r (replacement)

Ṭ            Truth; generate a list with 1's at those indices.
 œp          Partition; split s at all 1's, removing those characters.
   ż⁵        Zip the partition with r.


0ẋai1        Second helper link. Arguments: n (integer), B (list of Booleans)

0ẋ           Generate a list of n zeroes.
  a          Perform logical AND with B.
             This zeroes out the with n elements of B.
   i1        Compute the first index of 1.

CJam, 29 byte

l_ll.{2$#_3$<@+\)@>}s_2$,>@@?

Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

Java 7, 102 byte

void L(char[]s,char[]l,char[]r){for(int x=0,y=0;x<s.length&&y<l.length;x++)if(s[x]==l[y])s[x]=r[y++];}

Thử chi tiết tại đây

// String, Lookup, Replacement
void L(char[]s, char[]l, char[]r)
{
    for(int x=0, y=0; x < s.length && y < l.length; x++)
        if(s[x] == l[y])
            s[x] = r[y++];
}

Julia, 93 90 86 byte

f(s,p,r)=(try s=join([match(Regex(join("^$p\$","(.*?)")),s).captures';[r...""]])end;s)

Phải kiểm tra riêng nếu trận đấu thành công sẽ phá hủy điểm số. Một sự thay thế sẽ đòi hỏi phải đúc Base.SubstitutionString, mà có lẽ không đáng ...

Chạy thử nghiệm

julia> f(s,p,r)=(try s=join([match(Regex(join("^$p\$","(.*?)")),s).captures';[r...""]])end;s)
f (generic function with 1 method)

julia> f("aacbcbabcccaabcbabcaabbbbca","abaaaccbac","1223334444")
"aacbcbabcccaabcbabcaabbbbca"

julia> f("aacbcbabcccaabcbabcaabbbbcac","abaaaccbac","1223334444")
"1ac2cb2bccc33b3bab4aa4bbbc44"

Julia, 62 59 58 byte

f(s,p,r)=(try s[[i=findnext(s,c,i+1)for c=p]'],i=r,0end;s)

I / O ở dạng mảng ký tự.

xác minh

julia> f(s,p,r)=(try s[[i=findnext(s,c,i+1)for c=p]'],i=r,0end;s)
f (generic function with 2 methods)

julia> F(s,p,r)=join(f([s...],[p...],[r...])) # string/char array conversion
F (generic function with 1 method)

julia> F("aacbcbabcccaabcbabcaabbbbca","abaaaccbac","1223334444")
"aacbcbabcccaabcbabcaabbbbca"

julia> F("aacbcbabcccaabcbabcaabbbbcac","abaaaccbac","1223334444")
"1ac2cb2bccc33b3bab4aa4bbbc44"

PHP, 130 109 byte

Tôi vẫn thích nó ngắn hơn; có thể lưu 3 byte ( ""<) nếu Bđược đảm bảo không chứa 0.

for($s=($a=$argv)[1];""<$c=$a[2][$i++];)if($p=strpos(_.$s,$c,$p+1))$s[$p-1]=$a[3][$k++];echo$k<$i-1?$a[1]:$s;

lấy đối số từ dòng lệnh. Chạy với -r.

Thay thế các ký tự khi tìm thấy chúng;
in bản sao nếu tất cả các ký tự đã được thay thế; bản gốc khác.

Ruby, 70 64 59 58 byte

Chức năng ẩn danh. Đi qua chuỗi ađể xây dựng một chuỗi mới với các chữ cái được thay thế theo ký tự tiếp theo trong bvàc sau đó, nếu tất cả các ký tự trongb hết, hãy trả về chuỗi mới được tạo, nếu không trả về chuỗi gốc.

@histocrat đã giúp lưu 6 byte thông qua gsub .

Đã lưu 1 byte nhờ @Cyoce.

->a,b,c{i=0;s=a.gsub(/./){$&==b[i]?c[~-i+=1]:$&};b[i]?a:s}

Hãy thử trực tuyến!

Perl, 80 + 1 = 81 byte

Chạy với -pcờ

$a=join"(.*?)",split//,<>;$b.=$_." .\$".++$;."."for split//,<>;chop$b;s/$a/$b/ee

Hãy thử trực tuyến!

Mã theo thủ tục tạo ra một lệnh tìm kiếm và thay thế lệnh regex, sau đó nó sẽ thực thi trong bit mã cuối cùng.

Chuỗi ghosttrong ví dụ đầu tiên được chuyển thành chuỗi g(.*?)h(.*?)o(.*?)s(.*?)t(.*?), có nghĩa là một gký tự được htheo sau bởi 0 hoặc nhiều ký tự, theo sau là 0 hoặc nhiều ký tự, theo sau là v.v.*? định lượng có nghĩa là tìm kiếm không tham lam và "ngấu nghiến" "Càng ít ký tự càng tốt, thay vì mặc định khớp càng nhiều càng tốt.

Chuỗi 12345sau đó được chuyển thành 1 .$1.2 .$2.3 .$3.4 .$4.5 .$5, được đánh giá sau khi biểu thức chính quy được thực hiện. Mỗi trong số đó $1,$2,$3,$4,$5thực sự là một phản hồi cho một nhóm bắt giữ (trong ngoặc đơn) từ chuỗi đầu tiên.

Clojure, 113 byte

#(apply str((reduce(fn[[b c r]a](if(=(first b)a)[(rest b)(rest c)(conj r(first c))][b c(conj r a)]))[%2%3[]]%)2))

Một cơ bản reduce, không quá hài lòng về tất cả những dài first, restvà conjgọi hàm. Hy vọng để xem một cách tiếp cận tốt hơn.