Schreiben Sie ein Programm oder eine Funktion, die Buchstaben in einem Wort dupliziert, sodass alle duplizierten Buchstaben, die im Wort von links nach rechts angeordnet sind, das Eingabearray bilden.

Beispielsweise:

input: chameleon, [c,a,l,n]
output: cchaamelleonn

Eingang

• Das Startwort (zB chameleon)
• Ein Array von Zeichen ( [c,a,l,n]) oder eine Zeichenfolge zur Darstellung eines Arrays ( caln) oder ähnliches
• Die Eingabe kann über Funktionsparameter, STDIN oder Sprachäquivalente erfolgen
• Alle Eingaben erfolgen in Kleinbuchstaben (az)

Ausgabe

• Das veränderte Wort

• Wenn es mehrere Lösungen gibt, kann jede gedruckt werden

  input: banana [n,a]  
  possible outputs: bannaana, banannaa
                       |-|---------|-|--->[n,a]
  

• Sie können davon ausgehen, dass das Eingabewort (nicht unbedingt das Array) die Buchstaben im Array enthält (in der angegebenen Reihenfolge).

• Sie können auch davon ausgehen, dass die Eingaben keine aufeinander folgenden Buchstaben haben, die gleich sind (NICHT Apfel, Aussenseiter, Grün, Glas, Tür ...)

Beispiele

input: abcdefghij, [a,b,c]
output: aabbccdefghij

input: lizard, [i,a,r,d]
output: liizaarrdd

input: coconut, [c,o]
ouput: ccooconut or coccoonut or ccocoonut

input: onomatopoeia, [o,o,a,o,o]
output: oonoomaatoopooeia

input: onomatopoeia, [o,a,o]
output: oonomaatoopoeia or onoomaatoopoeia or oonomaatopooeia etc.

Kürzeste Sendung gewinnt!

Leaderboard (Danke an Martin Büttner für das Snippet)

/* Configuration */

var QUESTION_ID = 51984; // 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";

/* App */

var answers = [], page = 1;

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 getAnswers() {
  jQuery.ajax({
    url: answersUrl(page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      if (data.has_more) getAnswers();
      else process();
    }
  });
}

getAnswers();

var SIZE_REG = /\d+(?=[^\d&]*(?:<(?:s>[^&]*<\/s>|[^&]+>)[^\d&]*)*$)/;
var NUMBER_REG = /\d+/;
var LANGUAGE_REG = /^#*\s*([^,]+)/;

function shouldHaveHeading(a) {
  var pass = false;
  var lines = a.body_markdown.split("\n");
  try {
    pass |= /^#/.test(a.body_markdown);
    pass |= ["-", "="]
              .indexOf(lines[1][0]) > -1;
    pass &= LANGUAGE_REG.test(a.body_markdown);
  } catch (ex) {}
  return pass;
}

function shouldHaveScore(a) {
  var pass = false;
  try {
    pass |= SIZE_REG.test(a.body_markdown.split("\n")[0]);
  } catch (ex) {}
  return pass;
}

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

function process() {
  answers = answers.filter(shouldHaveScore)
                   .filter(shouldHaveHeading);
  answers.sort(function (a, b) {
    var aB = +(a.body_markdown.split("\n")[0].match(SIZE_REG) || [Infinity])[0],
        bB = +(b.body_markdown.split("\n")[0].match(SIZE_REG) || [Infinity])[0];
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  answers.forEach(function (a) {
    var headline = a.body_markdown.split("\n")[0];
    //console.log(a);
    var answer = jQuery("#answer-template").html();
    var num = headline.match(NUMBER_REG)[0];
    var size = (headline.match(SIZE_REG)||[0])[0];
    var language = headline.match(LANGUAGE_REG)[1];
    var user = getAuthorName(a);
    if (size != lastSize)
      lastPlace = place;
    lastSize = size;
    ++place;
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", user)
                   .replace("{{LANGUAGE}}", language)
                   .replace("{{SIZE}}", size)
                   .replace("{{LINK}}", a.share_link);
    answer = jQuery(answer)
    jQuery("#answers").append(answer);

    languages[language] = languages[language] || {lang: language, user: user, size: size, link: a.share_link};
  });

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

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) 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: 50%;
  float: left;
}

#language-list {
  padding: 10px;
  width: 50%px;
  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="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>
<div id="language-list">
  <h2>Winners 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>
<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>

Pyth, 14 Bytes

s+L&@d<Q1.(QZz

Demonstration.

Eingabestil:

banana
["b","a","n","a"]

Erläuterung:

s+L&@d<Q1.(Q0z
                  Implicit: z = input(); Q = eval(input())
 +L          z    Map (lambda d) over z, adding the result to each character.
    @d<Q1         Intersection of d with Q[:1], up to the first element of Q.
   &              Logical and - if the first arg is truthy, evaluate and
                  return the second arg, otherwise return first arg.
         .(Q0     Q.pop(0)
                  The addition will either be the empty string, for the empty
                  intersection, or the character that was Q[0] otherwise.

s                 Concatenate and print.

Brainfuck, 46 45 (63 mit druckbaren Zeichen in der Eingabe)

Kompatibel mit Alex Pankratovs BFF (Brainfuck-Interpreter für SPOJ und Ideone) und Thomas Corts BFI (für Anarchy Golf).

In der druckbaren Version wird das Array zuerst als Zeichenfolge gefolgt von einem Tabulator gefolgt von der Startzeichenfolge ohne abschließende Zeilenumbrüche verwendet.

Demonstration auf ideone.

-[+>,---------]
<[++++++++<]
<,+
[
  -.
  [>+>-<<-]
  >>
  [
    <[>+<-]
  ]
  <[.[-]]
  ,+
]

Wir können einige Bytes einsparen, indem wir \x00als Trennzeichen anstelle des Tabulators verwenden:

,[>,]
<[<]
<,+
[
  -.
  [>+>-<<-]
  >>
  [
    <[>+<-]
  ]
  <[.[-]]
  ,+
]

CJam, 15 Bytes

rr{_C#)/(C@s}fC

Probieren Sie es online aus.

Wie es funktioniert

rr              e# Read two whitespace-separated tokens from STDIN.
  {         }fC e# For each character C in the second string.
   _            e#   Duplicate the first string.
    C#          e#   Compute the index of the character in the string.
      )/        e#   Add 1 and split the string in slice of that size.
        (       e#   Shift out the first slice.
         C      e#   Push the character.
          @     e#   Rotate the remainder of the string in top of the stack.
           s    e#   Stringify (concatenate the slices).

C 62 Bytes

f(char*s,char*c){while(*s-*c||putchar(*c++),*s)putchar(*s++);}

Nun, das ist überraschend wettbewerbsfähig.

Wir definieren eine Funktion f(char*, char*), die den String als erste Eingabe und das zu duplizierende Array von Zeichen als zweite Eingabe verwendet.

Einige Testcodes:

int main (int argc, char** argv) {
    f("onomatopeia", "oao");
    return 0;
}

Welche Drucke:

oonomaatoopeia

Probieren Sie es online !

Wenn es akzeptabel ist, ein Makro anstelle einer Funktion zu übergeben, ist das Folgende #define g(s,c)nur 58 Bytes , erfordert aber tatsächliche Zeiger sund muss cdiese sein:

#define g(s,c)while(*s-*c||putchar(*c++),*s)putchar(*s++);

CJam, 15 Bytes

rr{:X/(XX+@X*}/

Ein alternativer CJam-Ansatz. Probieren Sie es online aus

Erläuterung

Für jedes Zeichen in der zweiten Zeichenfolge machen wir zwei Dinge.

1. Teilen Sie das aktuelle Suffix des Strings durch das Zeichen, z "beeper" "e" -> ["b" "" "p" "r"]

2. Löscht die erste Zeichenfolge im Array, fügt zwei Zeichen ein und setzt den Rest des Arrays wieder mit dem Zeichen zusammen, z "b" "ee" "eper". Die letzte Zeichenfolge ist das neue Suffix.

Retina, 33 Bytes

Weitere Informationen zu Retina.

+`(?=(.))(((.)(?<!\4.))+\n)\1
$1$2

Das erwartet die zwei Zeichenfolgen auf STDIN, die von einem Newline getrennt werden.

Zu Zählzwecken wird jede Zeile in eine separate Datei geschrieben, \ndie durch ein tatsächliches Zeilenumbruchzeichen (0x0A) ersetzt werden sollte. Wenn Sie dies tatsächlich testen möchten, ist es bequemer, dies in eine einzelne Datei zu \nschreiben, in der es unverändert bleibt, und dann Retina mit der -sOption aufzurufen, bevor Sie die Datei übergeben.

Erläuterung

(Veraltet ... Ich habe es geschafft, den Marker loszuwerden ... Ich werde dies später aktualisieren.)

Jedes Zeilenpaar ist eine reguläre Ersetzung (erste Zeile das Muster, zweite Zeile die Ersetzung).

^
#

Dadurch wird ein #als Markierung am Anfang der Eingabezeichenfolge eingefügt.

+`#(.*?(.))(.*\n)\2
$1$2#$3

Dies findet den ersten Buchstaben in der Eingabe (nach der Markierung), der dem nächsten zu duplizierenden Buchstaben entspricht, dupliziert diesen Buchstaben, verschiebt die Markierung dahinter und legt das erste Zeichen der zweiten Zeichenfolge ab. Das +`Symbol an der Vorderseite weist Retina an, dies wiederholt zu tun, bis sich die Zeichenfolge nicht mehr ändert (in diesem Fall, weil die zweite Zeichenfolge leer ist und alle erforderlichen Buchstaben dupliziert wurden).

#
<empty>

Zum Schluss räumen wir den String auf, indem wir den Marker fallen lassen.

Python, 61

def f(s,l):b=s[:1]==l[:1];return s and-~b*s[0]+f(s[1:],l[b:])

Eine gierige rekursive Lösung. Speichert, bob der erste Buchstabe der Zeichenfolge sder erste Buchstabe der lzu verdoppelnden Zeichenfolge ist . Wenn ja, nehmen Sie einen dieser Buchstaben und stellen Sie ihn vor den rekursiven Aufruf mit dem Rest von sund entfernen Sie das erste Element von l. Wenn nicht b, machen Sie dasselbe, aber verdoppeln Sie den Buchstaben nicht und entfernen Sie ihn nicht von l.

Der Code prüft s[:1]==l[:1] anstatt s[0]==l[0]einen Indexfehler zu vermeiden, wenn soder lleer ist.

Prolog 95, 83 79 56 Bytes

d([A|S],H):-put(A),H=[A|T],put(A),d(S,T);d(S,H).
d(_,_).

Beispiel:

d(`chameleon`,`caln`).

kehrt zurück

cchaamelleonn

Bearbeiten: 4 Bytes dank Oliphaunt gespeichert

Edit2: 20 Bytes mit dem veralteten put/1SWI-Prolog-Prädikat statt gespeichert writef. 1 Byte gespeichert, das das Rekursionsendprädikat d([],_).von ersetzt d(_,_).. Funktioniert nicht, wenn die Reihenfolge der beiden Definitionen von dvertauscht ist, aber das ist uns im Golfcode egal. Weitere 2 Bytes gespeichert, wobei die Klammern entfernt wurdenH=[A|T],put(A),d(S,T)

Python 2, 83 74 72 65 Bytes

Hier gibt es keine besonderen Tricks. xist die Zeichenfolge, yist das Array von Zeichen, die dupliziert werden.Um zu klären, ob dies nicht richtig kopiert wurde, ist die erste Einrückungsstufe ein Leerzeichen, die nächste ein Tabulator.

Edit 1: 9 Bytes mit String-Manipulation anstelle von pop () gespeichert.

2 bearbeiten: 2 Bytes mit gespeichert, -~um gum 1 zu erhöhen .

Edit 3: 7 Bytes mit y[:1]Trick gespeichert, danke an xnor dafür!

def f(x,y,s=''):
 for c in x:g=y[:1]==c;s+=c*-~g;y=y[g:]
 print s

Schau es dir hier an.

Richtig formatiert und erklärt:

def f(x,y,s=''):           # Defining a function that takes our input,
                           # plus holds a variable we'll append to.
  for c in x:              # For every character in 'x', do the following:
    g = y[:1] == c         # Get the first element from the second string, will
                           # return an empty string if there's nothing left.
                           # Thanks to xnor for this trick!
    s += c * -~g           # Since int(g) would either evaluate to 0 or 1, we
                           # use the -~ method of incrementing g to multiply
                           # the character by 1 or 2 and append it to 's'
    y = y[g:]              # Again, since int(g) would either evaluate to 0
                           # or 1, use that to cut the first value off y, or
                           # keep it if the characters didn't match.
  print s                  # Print the string 's' we've been appending to.

Excel VBA, 110 Bytes

Dies ist mein erster Einstieg in CodeGolf, also hoffe ich, dass dies in Ordnung ist.

Sie geben das eingegebene Wort in A1 ein und anschließend die zu ersetzenden Buchstaben in B1. Das resultierende Wort wird in einem Meldungsfeld angezeigt.

w = Cells(1, 1)
l = Cells(2, 1)
For i = 1 To Len(w)
x = Left(w, 1)
R = R + x
If InStr(l, x) > 0 Then
R = R + x
End If
w = Right(w, Len(w) - 1)
Next
MsgBox R

Haskell, 42 Bytes

(a:b)#e@(c:d)|a==c=a:a:b#d|1<2=a:b#e
a#_=a

Anwendungsbeispiel:

*Main> "coconut" # "co"
"ccooconut"
*Main> "lizard" # "iard"
"liizaarrdd"
*Main> "onomatopoeia" # "ooaoo"
"oonoomaatoopooeia"

Wie es funktioniert:

Wenn eine Zeichenfolge leer ist, ist das Ergebnis die erste Zeichenfolge. Andernfalls: Wenn die ersten Zeichen der Zeichenfolgen übereinstimmen, nehmen Sie sie zweimal und fügen Sie einen rekursiven Aufruf mit den Enden der Zeichenfolgen hinzu. Wenn die Zeichen nicht übereinstimmen, nehmen Sie das erste Zeichen der ersten Zeichenfolge und fügen Sie einen rekursiven Aufruf mit dem Ende der ersten Zeichenfolge und derselben zweiten Zeichenfolge hinzu.

Pyth, 18 17 Bytes

sm?+d.(QZqd&QhQdz

Live-Demo.

1 Byte dank @Jakube gespeichert.

Erläuterung:

                z  Read the first line of input.
 m                 For each character in that line
  ?      qd&QhQ    If (?) the first char of the stretch list (`&QhQ`) 
                   and the current character are equal,
   +d.(QZ          Then double the current character and pop an element off
                   the stretch list.
               d   Otherwise, just return the same character.
s                  Join all the characters together.

Originalfassung:

jkm?+d.(QZqd&QhQdz

Live-Demo für Original.

Javascript, 47 Bytes

(a,b)=>a.replace(/./g,d=>b[0]!=d?d:d+b.shift())

Nutzung einiger ES6-Funktionen.

Pyth, 16 Bytes

u|pH<GJxGH>GJwz

Probieren Sie es online aus: Demonstration

Das ist ziemlich abgedreht. Stack-basierte Sprachen könnten hier einen Vorteil haben.

Erläuterung

                   implicit: z = 1st input line, w = 2nd
u             wz   reduce, start with G = z
                   for each H in w, update G to:
        xGH          index of H in G
       h             +1
      J              store in J
    <GJ              substring: G[:J] (everything before index J)
  pH                 print substring then H (without newlines)
 |                   afterwards (actually or, but p always returns 0)
           >GJ       substring: G[J:] (everything from index J to end)
                     update G with ^
                   afterwards implicitly print the remainder G

JavaScript ES6, 47 Bytes

(w,s)=>w.replace(/./g,c=>c==s[0]?c+s.shift():c)

Angenommen, sist ein Array["c","a","l","n"]

> <> (Fisch) , 68 34 Bytes

ri&:o&:&=\
l&io& /!?/
?!;20.\l!\

Sie können es unter http://fishlanguage.com/playground ausführen, indem Sie den String als Anfangsstapel (mit "Marken", dh "Chamäleon") und das Array zusätzlicher Buchstaben als Eingangsstapel (ohne "Marken", dh "Caln") eingeben.

Vergessen Sie nicht, die Give-Taste zu drücken, um den Eingabestapel zu setzen.

r       reverses the stack
i&      reads in the first input, and stores it in the register
:o      copies the top of the stack, and outputs the top of the stack
&:&     puts register value on stack, copies it, then puts top stack into register
=       checks if the top two values are equal, if yes push 1, else push 0
?       if top value is non-zero, execute next instruction
!       skips the following instruction (unless it was skipped by the previous ?)

If yes, then we proceed on the same line
&o      puts register value on stack, and outputs it
i&      reads in the first input, and stores it in the register
l       puts length of stack on stack, then proceed to lowest line

If no, we go directly to the last line
l       As above.
?!;     If zero value (from length), then end execution
20.     Push 2 and 0 onto stack, then pop top two values, and go to that position (2,0) (i.e. next instruction is at (3,0))

EDIT: Halbiert es! :)

R 119

Basierend auf der Antwort von @ Alex ist diese um ein paar Bytes kürzer:

function(s,a){message(unlist(lapply(strsplit(s,"")[[1]],function(x){if(length(a)&x==a[1]){a<<-a[-1];c(x,x)}else x})))}

Ungolfed:

function(s, a) {
  message(                             # Prints to output
    unlist(                            # Flattens list to vector
      lapply(                          # R's version of map
        strsplit(s,"")[[1]],           # Split vector to characters
        function (x) {
          if (length(a) & x == a[1]) { # If there are still elements in a
                                       # and there's a match
            a <<- a[-1]                # Modify a
            c(x, x)                    # And return the repeated character
          } else x                     # Otherwise just return it
        }
      )
    )
  )
}

Perl, 73, 62, 59, 56

Ein völlig neuer Ansatz führt zu viel besseren Ergebnissen. Trotzdem wette ich, dass es kürzer sein kann.

Anrufen als f('coconut', ['c','o']).

sub f{($s,$a)=@_;$s=~s/(.*?)($_)/\U$1$2$2/ for@$a;lc$s}

Suchen Sie für jedes Zeichen im Array das erste Vorkommen, duplizieren Sie es und setzen Sie alles in Großbuchstaben um. Geben Sie dann die gesamte Zeichenfolge zurück, die in Kleinbuchstaben konvertiert wurde.

BEARBEITEN: Rasiert ein paar weitere Charaktere, indem shiftund entfernt werden pop.

Die vorherige Version:

sub f{join '',map{shift @{$_[0]}if s/($_[0][0])/$1$1/;$_}split //,shift}

Rubin, 52 47 Bytes

Lösung:

f=->(s,a){s.chars.map{|c|c==a[0]?a.shift*2:c}.join}

Beispiel:

p f.call('banana', ['n','a']) # => "bannaana"

Erläuterung:

Proc-Form einer Methode, die als erstes Argument einen String und als zweites Argument ein Array von Zeichen verwendet. Ordnet einen Block einem Array der Zeichen im Zeichenfolgenargument zu, das jedes Zeichen mit dem ersten Element des Vergleichsarrays vergleicht. Wenn eine Übereinstimmung vorliegt, wird das erste Element des Vergleichsarrays entfernt und verdoppelt.

aktualisieren

f=->s,a{s.chars.map{|c|c==a[0]?a.shift*2:c}*''}

Perl, 51 Bytes

$s=<>;$s=~s=^.*$_=$_=,$,.=$&for split"",<>;print$,;

Die Eingabe erfolgt über STDIN. Die erste Eingabe ist das Startwort (z. B. chameleon), die zweite Eingabe sind die Buchstaben als einzelne Zeichenfolge (z caln. B. ).

Das Obige ist nur eine verschleierte ("hübschere") Methode, um Folgendes zu tun:

$word = <>;
for $letter(split "", <>) {
   $word =~ s/^.*$letter/$letter/;
   $result .= $&;
}
print $result;

Während wir jeden Buchstaben durchgehen, ersetzen wir vom Wortanfang bis zum Buchstaben im Quellwort nur den neuen Buchstaben und hängen die Übereinstimmung (gespeichert in $&) an unser Ergebnis an. Da die Übereinstimmung den Buchstaben enthält und dann durch den Buchstaben ersetzt wird, erscheint jeder Buchstabe zweimal.

Da STDIN an beide Eingaben ein neues Zeilenzeichen anfügt, erfassen wir garantiert die Reste des vollständigen Wortes der letzten Übereinstimmung, dh des neuen Zeilenzeichens.

REGXY, 24 Bytes

Verwendet REGXY , eine auf Regex-Substitution basierende Sprache. Es wird angenommen, dass die Eingabe das Startwort und das durch Leerzeichen getrennte Array ist (z. B. "Chamäleon Caln").

/(.)(.* )\1| /\1\1\2/
//

Das Programm vergleicht ein Zeichen in der ersten Zeichenfolge mit dem ersten Zeichen nach einem Leerzeichen. Wenn dies zutrifft, wird das Zeichen in der Ersetzung wiederholt und das Zeichen im Array wird entfernt (also nicht zurück in die Zeichenfolge angehängt). Die Verarbeitung wird in die zweite Zeile verschoben, die nur einen Zeiger zurück auf die erste Zeile darstellt, wodurch die Verarbeitung für das Ergebnis der vorherigen Ersetzung wiederholt wird. Eventuell gibt es nach dem Leerzeichen keine Zeichen. An diesem Punkt stimmt der zweite Zweig der Abwechslung überein, wodurch das nachfolgende Leerzeichen aus dem Ergebnis entfernt wird. Der reguläre Ausdruck stimmt dann nicht überein, die Verarbeitung ist abgeschlossen und das Ergebnis wird zurückgegeben.

Wenn es hilft, sind die iterativen Schritte der Ausführung wie folgt:

chameleon caln
cchameleon aln
cchaameleon ln
cchaameleonn n
cchaameleonn  (with trailing space)
cchaameleonn

Das Programm wird mit dem Beispielinterpreter im obigen Link korrekt kompiliert und ausgeführt, aber die Lösung ist möglicherweise etwas frech, da sie auf einer Annahme beruht, dass die Sprachspezifikation nicht genau ist. Die Spezifikation gibt an, dass das erste Token in jeder Zeile (vor dem /) als Beschriftung fungiert. Es wird jedoch davon ausgegangen, dass ein Null-Beschriftungszeiger auf den ersten Befehl in der Datei mit einer Null-Beschriftung verweist (oder mit anderen Worten, das 'null' ist ein gültiges Etikett). Eine weniger freche Lösung wäre:

a/(.)(.* )\1| /\1\1\2/
b//a

Das sind 27 Bytes

JavaScript ES6, 72 Byte

(s,a,i=0,b=[...s])=>a.map(l=>b.splice(i=b.indexOf(l,i+2),0,l))&&b.join``

Dies ist eine anonyme Funktion, die zwei Parameter verwendet: das Startwort als Zeichenfolge und die Zeichen, die als Array gespannt werden sollen. Ungolfed-Code, der ES5 verwendet und die unten stehende Benutzeroberfläche testet.

f=function(s,a){
  i=0
  b=s.split('')
  a.map(function(l){
    i=b.indexOf(l,i+2)
    b.splice(i,0,l)
  })
  return b.join('')
}

run=function(){document.getElementById('output').innerHTML=f(document.getElementById('s').value,document.getElementById('a').value.split(''))};document.getElementById('run').onclick=run;run()

<label>Starting word: <input type="text" id="s" value="onomatopoeia" /></label><br />
<label>Leters to duplicate: <input type="text" id="a" value="oao"/></label><br />
<button id="run">Run</button><br />Output: <output id="output"></output>

Python 2, 77

def f(x,y,b=''):
 for i in x:
    try:
     if i==y[0]:i=y.pop(0)*2
    except:0
    b+=i
 print b

Anrufen als:

f('onomatopoeia',['o','a','o'])

Möglicherweise ist die Anzahl der Bytes furchtbar falsch ... Verwendet eine Mischung aus Leerzeichen und Tabulatoren.

rs, 39 bytes

Weitere Informationen zu rs.

Es gibt bereits eine Retina-Antwort, aber ich denke, diese verwendet einen etwas anderen Ansatz. Sie wurden auch separat erstellt: Als ich anfing, an dieser zu arbeiten, war diese Antwort noch nicht veröffentlicht worden.

Außerdem ist dieser ohnehin 6 Bytes länger. :)

#
+#(\S)(\S*) ((\1)|(\S))/\1\4#\2 \5
#/

Live-Demo und Testsuite.

JavaScript, 92 Zeichen

function f(s,c){r="";for(i=0;i<s.length;i++){r+=s[i];if(c.indexOf(s[i])>-1)r+=s[i]}return r}

Freie Version:

function stretch(str, chars) {
    var ret = "";
    for(var i = 0; i < str.length; i++) {
        ret += str[i];
        if(chars.indexOf(str[i]) > -1) {
            ret += str[i];
        }
    }
    return ret;
}

R, 136 128 122 Bytes

function(s,a){p=strsplit(s,"")[[1]];for(i in 1:nchar(s))if(length(a)&&(x=p[i])==a[1]){p[i]=paste0(x,x);a=a[-1]};message(p)}

Dadurch wird eine unbenannte Funktion erstellt, die eine Zeichenfolge und einen Zeichenvektor als Eingabe akzeptiert und eine Zeichenfolge an STDOUT ausgibt. Um es zu nennen, geben Sie ihm einen Namen.

Ungolfed + Erklärung:

f <- function(s, a) {
    # Split s into letters
    p <- strsplit(s, "")[[1]]

    # Loop over the letters of s
    for (i in 1:nchar(s)) {

        # If a isn't empty and the current letter is the first in a
        if (length(a) > 0 && p[i] == a[1]) {

            # Replace the letter with itself duplicated
            p[i] <- paste0(p[i], p[i])

            # Remove the first element from a
            a <- a[-1]
        }
    }

    # Combine p back into a string and print it
    message(p)
}

Beispiele:

> f("coconut", c("c","o"))
ccooconut

> f("onomatopoeia", c("o","a","o"))
oonomaatoopoeia

8 Bytes dank MickeyT und weitere 3 dank jja!

Bash + sed, 51

sed "`sed 's/./s!^[^&]*&!\U\&&!;/g'<<<$1`s/.*/\L&/"

Eingabe von stdin; Zeichen, die als einzelnes Argument verdoppelt werden sollen:

$ echo chameleon | strtech caln
cchaamelleonn

Dies funktioniert, indem ein sed-Programm erstellt $2und dann ausgeführt wird $1. Das sed-Programm ersetzt das erste Vorkommen jedes Ersetzungsbuchstabens durch zwei Kopien seiner Großbuchstaben und setzt am Ende das gesamte Los zurück. Im obigen Beispiel lautet das generierte sed-Programm

s!^[^c]*c!\U&C!;s!^[^a]*a!\U&A!;s!^[^l]*l!\U&L!;s!^[^n]*n!\U&N!;s/.*/\L&/

hübsch gedruckt:

# if only sed had non-greedy matching...
s!^[^c]*c!\U&C!
s!^[^a]*a!\U&A!
s!^[^l]*l!\U&L!
s!^[^n]*n!\U&N!
s/.*/\L&/

Ich benutze den Großbuchstaben, um Zeichen zu markieren, die bisher verarbeitet wurden. Dies vermeidet das erneute Verdoppeln von Zeichen, die bereits verdoppelt wurden, oder das Anwenden einer Verdopplung vor der vorherigen.

Frühere Version, vor der Klarstellung, dass die Reihenfolge der Ersatzliste wichtig ist (44 Zeichen):

sed "`sed 's/./s!&!\U&&!;/g'<<<$1`s/.*/\L&/"

Python, 53 92 Bytes

Ich habe festgestellt, dass meine Lösung in Python 2 und 3 gleich lang ist.

BEARBEITEN: Mann, diesen Fall zu beheben, wenn mehrere Ersetzungen desselben Buchstabens durchgeführt werden (während immer noch dieselbe Methode angewendet wird), war ein wenig arbeitsaufwendig.

Python 2:

Probieren Sie es hier aus

def f(s,t):
 for c in t:s=s.replace(c,'%',1)
 print s.replace('%','%s')%tuple(x*2for x in t)

Python 3:

s,*t=input()
for c in t:s=s.replace(c,'%',1)
print(s.replace('%','%s')%tuple(x*2for x in t))

Mathematica, 66 Bytes

""<>Fold[Most@#~Join~StringSplit[Last@#,#2->#2<>#2,2]&,{"",#},#2]&

Beispiel:

In[1]:= f = ""<>Fold[Most@#~Join~StringSplit[Last@#,#2->#2<>#2,2]&,{"",#},#2]&

In[2]:= f["banana", {"n", "a"}]

Out[2]= "bannaana"

Lua, 76 78 76 75 58 53 Bytes

Neue, komplett überarbeitete Lösung mit Hilfe von Wieselkatze und SquidDev! komm schon Jungs, wir können Brainfuck schlagen: P

function f(a,b)print((a:gsub("["..b.."]","%1%1")))end

Erklärung kommt morgen. Probieren Sie es hier aus.

Originelle Lösung: 2 Bytes gespart dank @ kirbyfan64sos!

Lua ist eine ziemlich schreckliche Sprache zum Golfspielen, deshalb denke ich, dass ich für diese eine ziemlich gute Sprache gemacht habe.

function f(x,y)for i=1,#x do g=y:sub(i,i)x=x:gsub(g,g..g,1)end print(x)end

Code Erklärung, zusammen mit der ungolfed Version:

function f(x,y) --Define a function that takes the arguements x and y (x is the string to stretch, y is how to stretch it)
  for i=1,#x do --A basic for loop going up to the length of x
    g=y:sub(i,i) -- Define g as y's "i"th letter
    x=x:gsub(g,g..g,1) --Redefine x as x with all letter "g"s having an appended g after them, with a replace limit of 1.
  end
  print(x)
end

Probieren Sie es hier aus. (Veralteter Code, aber dasselbe Konzept, nur weniger erfolgreich, wird morgen aktualisiert.)