入力として文字列と文字を取り、最初の文字と入力として与えられた文字を除くすべての文字を1つずつ削除するJavaScriptプログラムを作成した後。

たとえば、入力codegolf.stackexchange.comを使用eして文字を計算すると、次のようになります。

codegolf.stackexchange.com
cdegolf.stackexchange.com
cegolf.stackexchange.com
ceolf.stackexchange.com
celf.stackexchange.com
cef.stackexchange.com
ce.stackexchange.com
cestackexchange.com
cetackexchange.com
ceackexchange.com
ceckexchange.com
cekexchange.com
ceexchange.com
ceechange.com
ceehange.com
ceeange.com
ceenge.com
ceege.com
ceee.com
ceeecom
ceeeom
ceeem
ceee

最初の文字とすべてeのを保持します。他のすべての文字は1つずつ削除されます。

あなたの仕事は、この効果を達成する文字列を2つの入力と出力（または返す）を取るプログラム（または関数）を書くことです。

仕様書

• 文字列には改行が含まれないと想定できます。
• 2番目の入力は常に1文字です。
• 答えが関数の形式である場合、出力の各行を含む文字列の配列を返すことができます。
• 出力には、末尾の改行を含めることができます。

テストケース

Test Cases、s：

Test Cases
Tst Cases
Ts Cases
TsCases
Tsases
Tsses
Tsss

Make a "Ceeeeeeee" program、e：

Make a "Ceeeeeeee" program
Mke a "Ceeeeeeee" program
Me a "Ceeeeeeee" program
Mea "Ceeeeeeee" program
Me "Ceeeeeeee" program
Me"Ceeeeeeee" program
MeCeeeeeeee" program
Meeeeeeeee" program
Meeeeeeeee program
Meeeeeeeeeprogram
Meeeeeeeeerogram
Meeeeeeeeeogram
Meeeeeeeeegram
Meeeeeeeeeram
Meeeeeeeeeam
Meeeeeeeeem
Meeeeeeeee

Hello World!、!：

Hello World!
Hllo World!
Hlo World!
Ho World!
H World!
HWorld!
Horld!
Hrld!
Hld!
Hd!
H!

Hello World!、z：

Hello World!
Hllo World!
Hlo World!
Ho World!
H World!
HWorld!
Horld!
Hrld!
Hld!
Hd!
H!
H

alphabet、a：

alphabet
aphabet
ahabet
aabet
aaet
aat
aa

upperCASE、e：

upperCASE
uperCASE
uerCASE
ueCASE
ueASE
ueSE
ueE
ue

これはcode-golfであるため、最短のコード（バイト単位）が優先されます。

V、12バイト

òYpó.“„a]òd

オンラインでお試しください！

Hexdump：

00000000: f259 70f3 2e93 8412 615d f264            .Yp.....a].d

チャレンジの前に利用可能な最新バージョンのVでこれをテストしましたが、すべてが正しく実行され、この答えが競合します。

説明：

ò         ò    " Recursively:
 Yp            "   Duplicate this line
   ó           "   Remove:
    .a]      "     A compressed regex
            d  " Delete our extra line

圧縮された正規表現は

.\zs[^e]

つまり

.           " Any character
 \zs        " Leave the previous character out of the selection
    [^e]    " Any character except for 'e' (Or whatever is given for input)

非競合バージョン（11バイト）

このバージョンでは、Ypこのチャレンジが投稿されたときには利用できなかったショートカットを使用しています。

VIM、27、26、25のバイト

DJqqYp:s/.\zs[^<C-r>-]<CR>@qq@qD

オンラインでお試しください！

入力の形式は次のとおりです。

e
codegolf.stackexchange.com

私の素朴な最初のアプローチは3バイト長くなります：

i:s/.\zs[^<Right>]<Esc>"addqqYp@a@qq@qdd

私の名前から始まるので、この答えにも満足しています。

DJqq:t$|s/.\zs[^<C-r>"]<CR>@qq@qD
DJMcMayhem

類似性を参照してください？え？

あまり成功していないアプローチ：

i:s/.\zs[^<Right>]<Esc>"addqqYp@a@qq@qdd
i:s/.\zs[^<Right>]<CR>@q<Esc>"adkqqYp@aq@qdd
DJ:s/.\zs[^<C-r>"]<CR>uqqYp@:@qq@qdd
DJqq:t.|$s/.\zs[^<C-r>"]<CR>@qq@qdd

説明：

D                                   " Delete everything on this first line
 J                                  " Remove this empty line
  qq                                " Start recording into register 'q'
    Y                               " Yank this line
     p                              " And paste it
      :s/                           " Run a substitute command on the last line in the buffer. Remove:
         .                          "   Any character
          \zs                       "   Move the selection forward (so we don't delete the first one)
             [^<C-r>-]              "   Followed by anything *except* for the character we deleted
                      <CR>          " Run the command
                          @q        " Call register 'q'
                            q       " Stop recording
                             @q     " Run the recursive macro
                               D    " Delete our extra line

MATL、20 16バイト

y-f1X-"t[]@X@q-(

オンラインでお試しください！またはテストケースを検証：1、2、3、4、5。

ボーナス

文字列が徐々に縮小されるようにコードを修正しました（オフラインコンパイラ）：

y-f1X-"tt.3Y.XxD[]@X@q-(].3Y.XxDvx

または、MATL Onlineでお試しください！

説明

y        % Implicitly input string and char. Duplicate string onto top
-        % Subtract. Gives nonzero for chars in the input string that are
         % different from the input char
f        % Array of indices of nonzero values
1X-      % Remove 1 from that array. This gives an array of the indices of 
         % chars to be removed from the string
"        % For each
  t      %   Duplicate previous string
  []     %   Push empty array
  @      %   Push index of char to be removed. But this index needs to be 
         %   corrected to account for the fact that previous chars have
         %   already been removed...
  X@q-   %   ... So we correct by subtracting the 0-based iteration index
  (      %   Assign empty array to that position, to remove that char
         % Implicitly end for each
         % Implicitly display

Haskell、50バイト

w@(a:x)%c|(d,_:y)<-span(==c)x=w:(a:d++y)%c|0<1=[w]

(%)文字列のリストを返す関数を定義します。

説明

(%)はとして呼び出されw%c、w入力文字列でありc、保持する文字です。要するに、この定義wは、最初の文字（a）と残り（x）に分離xし、以外の文字の最初の出現で分割し、cその1文字を落とした状態で自分自身を再帰的に呼び出すことによって機能します。

w@(a:x)%c              -- define (%) with w separated into a and x.
 |(d,_:y)<-span(==c)x  -- split x; bind the string of `c` to d, and the rest
                       -- to _:y, dropping first character and calling the rest y.
  =w:(a:d++y)%c        -- if there was a character to drop, cons w onto the
                       -- sequence gained by recursively calling (%) with that
                       -- character removed (i.e. call with a:d++y).
 |0<1=[w]              -- if nothing needed to be dropped, the result sequence is
                       -- simply the one-element list [w]

網膜、28 27バイト

バイトカウントはISO 8859-1エンコードを前提としています。

;{G*1`
R1r`(?!^|.*¶?\1$)(.)

オンラインでお試しください！

説明

;{G*1`

ここには多くの設定があります。ステージ自体は実際にはjust G1`であり、最初の行のみを保持し、入力文字を破棄します。*ドライランに変換します。つまり、結果（つまり、文字列の最初の行）は実際に文字列を変更せずに印刷されます。{Retinaに、文字列の変更が停止し;、プログラムの最後で出力が行われないまで、ループで両方のステージを実行するように指示します。

R1r`(?!^|.*¶?\1$)(.)

これにより、a）入力の先頭にない最初の文字、b）別の入力文字と等しくない文字は破棄されます。

ピップ、22 26 24 22バイト

Lv+#Paa@oQb?++oPaRA:ox

最初のコマンドライン引数として文字列を取り、2番目の文字として文字を取ります。オンラインでお試しください！

説明

入力の文字をループします。文字が特殊文字と等しい場合、次の文字に進みます。そうでない場合は、削除して文字列を出力します。

改変されていないバージョン（a、bget cmdline args; はのo値で始まり1、xis ""）：

P a         Print a
L #a-1      Loop len(a)-1 times:
 I a@o Q b   If a[o] string-eQuals b:
  ++o         Increment o
 E {         Else:
  a RA: o x   In-place in a, Replace char At index o with x (i.e. delete it)
  P a         Print a
 }

ゴルフのコツ：

• のループヘッダーLは1回しか評価されないため、そこに初期印刷を潜入することができます。#Pa-1はP優先順位が低いため解析されませんが（として解析されます#P(a-1)）、に事前初期化されv+#Paたv変数を使用して、に再配置できます-1。
• RA:オペレータは、新しい値を返すaので、私たちは別々のではなく、その式を印刷することができPa文を。
• ifステートメントの両方のブランチは単一の式であるため、?代わりに三項演算子を使用できます。

Perl 5、29バイト

Strawberry Perlを使用して35バイトを得ました：31バイト、プラスの-nE代わりに1 -e、プラススペース+ -i（1文字入力に使用。長い文字列はSTDINから）に3。

chomp;say;s/(.)[^$^I]/$1/&&redo

ただし、Strawberryを使用して自分でテストすることはできませんが、29バイトのをchomp;使用せずにこれが実行できることは間違い<<<ありません。

say;s/(.)[^$^I]/$1/&&redo

副<文>この[前述の事実の]結果として、それ故に、従って、だから◆【同】consequently; therefore <文>このような方法で、このようにして、こんなふうに、上に述べたように◆【同】in this manner <文>そのような程度まで<文> AひいてはB◆【用法】A and thus B <文>例えば◆【同】for example; as an example：

perl -im -nE'say;s/(.)[^$^I]/$1/&&redo' <<< "example"

Perl 6の、 47の40  38バイト

->\a,\b{a,{S/^(."{b}"*:)./$0/}...^{$^a eq $^b}}

->\a,\b{a,{S/^(."{b}"*:)./$0/}...^&[eq]}

{$^b;$^a,{S/^(."$b"*:)./$0/}...^&[eq]}

拡張：

{       # lambda with two placeholder parameters ｢$a｣ and ｢$b｣

  $^b;    # declare second parameter

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

  {       # bare block lambda with implicit parameter ｢$_｣
    S/      # string replace and return
      ^       # beginning of string
      (       # capture into ｢$0｣
        .       # the first character
        "$b"*   # as many ｢$b｣ as possible
        :       # don't allow backtracking
      )
      .       # any character ( the one to be removed )

    /$0/      # put the captured values back into place
  }

  ...^      # repeat that until: ( and throw away the last value )

  &[eq]     # the infix string equivalence operator/subroutine

}

...^代わりに使用された理由は、最後の値が繰り返されるまで戻らない...という&[eq]ことTrueです。

05AB1E、26 25バイト

¬ˆ[¦Ðg_#¬²k0Qi²ˆë¯J?,]¯J?

¬ˆ                         Put the first character into an array
  [                        While true
   ¦                       Remove the first character
    Ð                      Triplicate
     g_#                   if the string is empty, break
        ¬²k0Qi             if the first character is equal to the one specified in the input
              ²ˆ           Add it to the array
                ë          Else
                 ¯J?       Display the array
                    ,      Display the remaining string
                     ]     End while
                      ¯J?  Display the last string

オンラインでお試しください！

¬²k0Q書き換えることができます¬²Qが、何らかの理由で現在の文字が引用符である場合は機能しません。Qはブール値ではなく実際の文字列を返し、無限ループを引き起こします。

¯J?重複しているため、このコードはさらにゴルフすることができます。この部分をループ内で移動すると、重複が削除され、閉じ角括弧も削除されます。

Python 2、71 66バイト：

f,m=input();k=f[0]
while f:a=f[0]==m;k+=f[0]*a;f=f[1+a:];print k+f

完全なプログラム。形式でSTDINを介して2つの入力を受け取ります'<String>','<Char>'。

また、以下は現在140バイトの再帰的なソリューションです。

Q=lambda c,p,k='',j=1,l=[]:c and Q(c[1:],p,k+c[0]*(j<2)+c[0]*(c[0]==p),j+1,l+[k+c])or'\n'.join(sorted({*l},key=l.index))+('\n'+k)*(k not in l)

これは、形式で呼び出す必要がありますprint(Q('<String>','<Char>'))。

Python 3、72バイト

def e(i,k):
 for r in i:
  if r!=k:i=i[0]+i[1:].replace(r,'',1);print(i)

オンラインでお試しください！

e('😋🥕🍎🥓🥑🥓🥑🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆','🥓')

ダイエットをする：

😋🥕🍎🥓🥑🥓🥑🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🍎🥓🥑🥓🥑🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥑🥓🥑🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🥑🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🥒🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🍆🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🥔🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🍆🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🥓🍅🥜🥓🥔🍅🍄🍆
😋🥓🥓🥓🥜🥓🥔🍅🍄🍆
😋🥓🥓🥓🥓🥔🍅🍄🍆
😋🥓🥓🥓🥓🍅🍄🍆
😋🥓🥓🥓🥓🍄🍆
😋🥓🥓🥓🥓🍆
😋🥓🥓🥓🥓

JavaScript（ES6）、74バイト

(s,c)=>[...t=s.slice(1)].map(d=>c!=d?s+=`
`+s[0]+(t=t.replace(d,``)):s)&&s

Ruby、148 139 97 90 83 77 62バイト

a,c=$*;p s=""+a;i=1;while d=s[i];(d!=c)?(s[i]="";p s):i+=1;end

この交換でアマチュアコードが受け入れられるかどうかはわかりませんが、ゴルフのコーディングを学ぶことに興味がありますが、それは恐ろしいことです。

編集：

putをpに置き換えました

Wheat Wizardのおかげで、大量の空白を削除し、バイトを正しくカウントしました

challenger5のおかげでから行ったs=gets.chop;c=gets.chop;のs,c=gets.chop,gets.chop;

交換しthenて;とgets.chopしてgets[0]感謝Mhutter！

入力をコマンドライン変数として今、例えば prog.rb helloworld l

jeroenvisser101によって多くの改良のおかげで交換するa=s.dupとs=""+aしている場合、前の文if s[i]!=c;s[i]="";p s;else i+=1;endと(d!=c)?(s[i]="";p s):i+=1;大幅に改善！

C90、129の 125バイト

空白あり：

main(q, x)
{
    for (char **v = x, *a = v[1], *b = a, *c;*b++;)
        for (c = a; c == a | *c == *v[2] && *b != *v[2] && putchar(*c),
            ++c != b || *b != *v[2] && !puts(b););
}

空白なし：

main(q,x){for(char**v=x,*a=v[1],*b=a,*c;*b++;)for(c=a;c==a|*c==*v[2]&&*b!=*v[2]&&putchar(*c),++c!=b||*b!=*v[2]&&!puts(b););}

なし：

#include <stdio.h>
int main(int argc, char **argv)
{
    char *a = argv[1];
    for (char *b = a + 1; *b; b++) {
        if (*b == *argv[2]) {
            continue;
        }
        putchar(*a);
        for (char *c = a + 1; c != b; c++) {
            if (*c == *argv[2]) {
                putchar(*c);
            }
        }
        puts(b);
    }
}

これは、文字列の先頭へのポインタを受け取り、文字列の末尾に到達するまでこのポインタを繰り返しループします。ループ内で、最初の文字を出力し、次に文字列の先頭とポインターの間にある2番目の引数のインスタンスを出力します。この後、ポインタにputsを呼び出して、残りの文字列を出力します。

これは、sizeof（int）== sizeof（char *）のシステムでコンパイルする必要があります。それ以外の場合は+3バイト。

ここでコードゴルフを試したのはこれが初めてなので、いくつかの最適化が行われるはずです。

Dyalog APL、27 バイト

{×i←⊃1+⍸⍺≠1↓⎕←⍵:⍺∇⍵/⍨i≠⍳≢⍵}

⍺は除外される文字で⍵、初期文字列です

引数を出力します。最初のcharの後の最初のinon-のインデックスを見つけます⍺。見つかった場合、i削除して再帰的に呼び出します

Mathematica、64バイト

Most@FixedPointList[StringReplace[#,b_~~Except@a:>b,1]&,a=#2;#]&

匿名関数。入力として2つの文字列を受け取り、出力として文字列のリストを返します。キャラクターの最初の非インスタンスを繰り返し削除することで機能します。

PHP、88 84 86 85 82 81 78バイト

@IsmaelMiguelのおかげで1バイト、@ user59178のおかげで3バイト、@ user59178に触発された3バイト

while($b=substr("$argv[1]\n",$i++))$a>""&$b[0]!=$argv[2]?print$a.$b:$a.=$b[0];

コマンドライン引数から入力を受け取ります。と走るphp -r <code> '<string>' <character>

• 暗黙の最終印刷のために、入力に改行を追加します。
  これは5 4バイトのコードを追加しますが、出力と追加のを節約しecho$a;ます。

05AB1E、26 24 23バイト

@Kadeに2バイトありがとう！
@Emignaに1バイトをありがとう！

¬UDvy²k0Êiy¡¬s¦yý«Xs«=¦

CP-1252エンコードを使用します。オンラインでお試しください！

y²k0Ê可能性がありますy²Êが、"それを台無しにします。

これはおそらく«2回繰り返されるため、より多くのゴ​​ルフができるでしょう。何か提案やゴルフをする方法があれば、コメントを残してください。

ジャワ10、155の 140 139 124バイト

c->s->{var r=s+"\n";for(int i=0;++i<s.length();)if(s.charAt(i)!=c)r+=(s=s.substring(0,i)+s.substring(i--+1))+"\n";return r;}

オンラインでお試しください。

説明：

c->s->{          // Method with character and String parameters and String return-type
  var r=s+"\n";  //  Result-String, starting at the input-String with trailing new-line
  for(int i=0;++i<s.length();)
                 //  Loop over the characters of the String, skipping the first
    if(s.charAt(i)!=c)
                 //   If the current character and the input-character are equal
      r+=(s=s.substring(0,i)+s.substring(i--+1))
                 //     Remove this character from the String `s`
         +"\n";  //     And append the new `s` with trailing new-line to the result-String
  return r;}     //  Return the result-String

古い139バイトの再帰的な回答：

void c(String s,int c){System.out.println(s);for(int i=1;i<s.length();)if(s.charAt(i++)!=c){c(s.substring(0,i-1)+s.substring(i),c);break;}}

@Eugeneのおかげで-1バイト。（次回は、誰か他の人の投稿を編集する代わりにコメントをしてください。）

オンラインでお試しください。

説明：

void c(String s,int c){     // Method with String and integer parameters and no return-type
  System.out.println(s);    //  Print the input-String with trailing new-line
  for(int i=1;i<s.length();)//  Loop over the characters of the String, skipping the first
    if(s.charAt(i++)!=c){   //   If the current character and the input-character are equal
      c(s.substring(0,i-1)+s.substring(i),c); 
                            //    Remove this character, and do a recursive call
      break;}}              //    And stop the loop

C位、122の 117 112バイト

IEnumerable F(string s,char c){for(int i=0;i<s.Length;++i)if(i<1||s[i]!=c)yield return i>0?s=s.Remove(i--,1):s;}

アンゴルフド：

public IEnumerable F(string s, char c) {
    for (int i = 0; i < s.Length; ++i) {
        if (i < 1 || s[i] != c)
            yield return i > 0 ? s = s.Remove(i--, 1) : s;
    }
}

文字列のコレクションを返します。

TSQL、127バイト（変数定義を除く）

DECLARE @1 VARCHAR(100)='codegolf.stackexchange.com'
DECLARE @2 CHAR(1) = 'o'

DECLARE @ char=LEFT(@1,1)WHILE patindex('%[^'+@2+']%',@1)>0BEGIN SET @1=STUFF(@1,patindex('%[^'+@2+']%',@1),1,'')PRINT @+@1 END

フォーマット済み：

DECLARE @1 VARCHAR(100) = 'codegolf.stackexchange.com'
DECLARE @2 CHAR(1) = 'o'
DECLARE @ CHAR = LEFT(@1, 1)

WHILE patindex('%[^' + @2 + ']%', @1) > 0
BEGIN
    SET @1 = STUFF(@1, patindex('%[^' + @2 + ']%', @1), 1, '')

    PRINT @ + @1
END

C＃、135 138 :( 137バイト

ゴルフ：

IEnumerable<string>F(string s,char c){int i=1,l;for(;;){yield return s;l=s.Length;while(i<l&&s[i]==c)i++;if(i==l)break;s=s.Remove(i,1);}}

ゴルフをしていない：

    IEnumerable<string> F(string s, char c)
    {
        int i = 1, l;

        for (;;)
        {
            yield return s;

            l = s.Length;

            while (i < l && s[i] == c)
                i++;

            if (i == l)
                break;

            s = s.Remove(i, 1);
        }
    }

関数は文字列のコレクションを返します。

EDIT1：@psychoは、アルゴリズムが適切に実装されていないことに気付きました。

EDIT2：の変数を作成しましたs.Length。@TheLethalCoderのおかげで1バイト節約できました。

Pythonの2 - 65の 73バイト

lambda s,c:[s[0]+c*s[1:i].count(c)+s[i+1:]for i in range(len(s))]

そして、76バイトの再帰的なソリューションです。最初のものよりも長いにも関わらず、私はそれが好きだからです。

f=lambda s,c,i=1:s[i:]and[[s]+f(s[:i]+s[i+1:],c,i),f(s,c,i+1)][s[i]==c]or[s]

ラケット194バイト

(let p((s s)(n 1)(t substring)(a string-append))(displayln s)(cond[(>= n(string-length s))""]
[(equal? c(string-ref s n))(p(a(t s 0 n)(t s n))(+ 1 n)t a)][else(p(a(t s 0 n)(t s(+ 1 n)))n t a)]))

ゴルフをしていない：

(define (f s c)
  (let loop ((s s)
             (n 1))
    (displayln s)
    (cond
      [(>= n (string-length s))""]
      [(equal? c (string-ref s n))
       (loop (string-append (substring s 0 n) (substring s n))
             (add1 n))]
      [else
       (loop (string-append (substring s 0 n) (substring s (add1 n)))
             n)])))

テスト：

(f "Test cases" #\s)
(f "codegolf.stackexchange.com" #\e)

出力：

Test cases
Tst cases
Tst cases
Ts cases
Tscases
Tsases
Tsses
Tsses
Tsss
Tsss
""
codegolf.stackexchange.com
cdegolf.stackexchange.com
cegolf.stackexchange.com
cegolf.stackexchange.com
ceolf.stackexchange.com
celf.stackexchange.com
cef.stackexchange.com
ce.stackexchange.com
cestackexchange.com
cetackexchange.com
ceackexchange.com
ceckexchange.com
cekexchange.com
ceexchange.com
ceexchange.com
ceechange.com
ceehange.com
ceeange.com
ceenge.com
ceege.com
ceee.com
ceee.com
ceeecom
ceeeom
ceeem
ceee
""

JavaScript（ES6）、64 69

改行を含む単一の文字列を返す

s=>c=>[...s].map((x,i,z)=>i&&x!=c&&(z[i]='',s+=`
`+z.join``))&&s

F=
s=>c=>[...s].map((x,i,z)=>i&&x!=c&&(z[i]='',s+=`
`+z.join``))&&s
  

function update() {
  var s=S.value,c=C.value[0]
  O.textContent=F(s)(c)
}

update()

<input id=S value='Hello world!' oninput='update()'>
<input id=C value='!' oninput='update()'>
<pre id=O></pre>

スイフト3 - 151の 147バイト

Swiftは、特に文字列のインデックス付けに関連する場合、ゴルフに理想的な言語ではありません。これは私ができる最善の方法です：

func c(a:String,b:String){print(a);var q=Array(a.characters),i=1;while i<q.count{if "\(q[i])" != b{q.remove(at:i);c(a:String(q),b:b);break};i=i+1}}

残念ながら、Swiftには（スペースは必要あり!=ませんが==）スペースが必要です。Swift3は++オペレーターを削除しました。これらの両方のトリックは、整数のインデックス付けを可能にする文字配列に変換し、文字の文字列補間を使用してString（"\(c)"）に戻すことです。

ゴルフをしていない：

func c(a:String, b:String) {
    print(a)
    var q = Array(a.characters)
    var i = 1
    while i < q.count {
        if "\(q[i])" != b {
            q.remove(at:i)
            c(a: String(q), b: b)
            break
        }
        i=i+1
    }
}

以前の非再帰的ソリューション

func c(a:String,b:String){var q=Array(a.characters),e={q.removeFirst()},z="\(e())";print(a);while !q.isEmpty{"\(e())"==b ? z=z+b : print(z+String(q))}}

func c(a:String, b:String) {
    var q = Array(a.characters)
    var z = "\(q.removeFirst())"
    print(a)
    while !q.isEmpty {
        if "\(q.removeFirst())" == b {
            z = z + b
        }else{
            print(z + String(q))
        }
    }
}

Pyke、26 19 17バイト

jljjhF3<Q/Q*jih>s

ここで試してみてください！

                  - Q = input
j                 - j = input_2
 ljjhF3           - for (i, j, j[0]) for i in range(len(j))
       <          -     j[:i]
        Q/        -    ^.count(Q)
          Q*      -   ^*Q
                s -  sum(j[0], ^, V)
            jih>  -   j[i+1:]

Mathematica、78バイト

くそー、マーティン・エンダー、私はほとんど最初でした：p

(i=2;a={c=#};While[i<=Length@c,If[c[[i]]==#2,i++,c=c~Drop~{i};a=a~Append~c]];a)&

名前のない機能; Whileループといくつかの一時変数を使用した簡単な実装。

JavaScript ES6、89バイト

これは簡単な挑戦だと思いましたが、ここで何かが欠けていると確信しています。

再帰を使用して、文字列の配列を返します

(c,i=1,r)=>f=a=>a[i]?a[i++]==c?f(a):f(g=a.slice(0,i-1)+a.slice(i--),(r=r||[a]).push(g)):r

F=
  (c,i=1,r)=>f=a=>a[i]?a[i++]==c?f(a):f(g=a.slice(0,i-1)+a.slice(i--),(r=r||[a]).push(g)):r

G=_=>A.value.length>1 && (O.innerHTML = F(E.value)(A.value).join`
`)

G()

<input id=A oninput='G()' value='alphabet'>
<input id=E oninput='G()' value='a'>
<pre id=O>

Groovy、34バイト

{a,b->a.inject{i,r->i+=r==b?b:""}}