Una vez que escribí un programa de JavaScript que tomaría como entrada una cadena y un carácter y eliminaría todos los caracteres excepto el primero y el carácter dado como entrada, uno por uno.

Por ejemplo, calcular esto con entradas codegolf.stackexchange.comy epara los rendimientos de caracteres:

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

Mantiene el primer personaje y todos los es. Todos los demás personajes se eliminan uno por uno.

Su tarea es escribir un programa (o función) que tome dos entradas y salidas (o devuelva) una cadena que logre este efecto.

Especificaciones

• Puede suponer que la cadena no contendrá ninguna línea nueva.
• La segunda entrada siempre será un carácter.
• Si la respuesta tiene la forma de una función, puede devolver una serie de cadenas que contienen cada línea en la salida.
• La salida puede contener una nueva línea final.

Casos de prueba

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

Este es el código de golf , por lo que gana el código más corto (en bytes).

V , 12 bytes

òYpó.“„a]òd

Pruébalo en línea!

Hexdump:

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

He probado esto con la última versión de V disponible antes del desafío , y todo funciona correctamente, haciendo que esta respuesta sea competitiva.

Explicación:

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

La expresión regular comprimida se traduce en

.\zs[^e]

Lo que significa

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

Versión no competitiva (11 bytes)

Esta versión utiliza un acceso directo para Ypque no estaba disponible cuando se publicó este desafío.

Vim, 27, 26 , 25 bytes

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

Pruébalo en línea!

La entrada viene en este formato:

e
codegolf.stackexchange.com

Mi primer acercamiento ingenuo es tres bytes más largo:

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

También estoy contento con esta respuesta porque comienza con mi nombre.

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

¿Ves la similitud? Eh?

Enfoques menos exitosos:

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

Explicación:

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 bytes

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

Pruébalo en línea! O verificar los casos de prueba: 1 , 2 , 3 , 4 , 5 .

Prima

Código modificado para ver que la cadena se reduce gradualmente (compilador fuera de línea):

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

¡O pruébalo en MATL Online!

Explicación

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 bytes

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

Define una función que (%)devuelve una lista de cadenas.

Explicación

(%)se llama como w%c, wsiendo la cadena de entrada, y cel carácter a mantener. En resumen, esta definición funciona separándose wen el primer carácter ( a) y el resto ( x), dividiéndose xen la primera aparición de un carácter que no sea c, y recursivamente se llama a sí mismo con ese carácter eliminado.

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]

Retina , 28 27 bytes

El recuento de bytes asume la codificación ISO 8859-1.

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

Pruébalo en línea!

Explicación

;{G*1`

Hay mucha configuración aquí. El escenario en sí es realmente justo G1`, lo que mantiene solo la primera línea, descartando el carácter de entrada. *lo convierte en una ejecución en seco, lo que significa que el resultado (es decir, la primera línea de la cadena) se imprime sin cambiar realmente la cadena. {le dice a Retina que ejecute ambas etapas en un bucle hasta que la cadena deje de cambiar e ;impide la salida al final del programa.

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

Esto descarta el primer carácter que a) no está al comienzo de la entrada, b) no es igual al carácter de entrada separado.

Pip , 22 26 24 22 bytes

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

Toma la cadena como primer argumento de la línea de comandos, el carácter como segundo. Pruébalo en línea!

Explicación

Recorre los caracteres de entrada; si el personaje es igual al personaje especial, pase al siguiente; si no, elimínelo e imprima la cadena.

Una versión sin golf ( a, bobtener cmdline args; ocomienza con un valor de 1, xes ""):

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
 }

Trucos de golf:

• El encabezado del bucle Lsolo se evalúa una vez, por lo que podemos filtrar la impresión inicial allí. #Pa-1no funcionará porque Pes de baja precedencia (se analizaría como #P(a-1)), pero podemos reorganizarlo v+#Pa, usando la vvariable preinicializada en -1.
• El RA:operador devuelve el nuevo valor de a, por lo que podemos imprimir esa expresión en lugar de tener una Padeclaración separada .
• Ahora ambas ramas de la instrucción if son expresiones individuales, por lo que podemos usar el operador ternario en su ?lugar.

Perl 5, 29 bytes

Obtuve 35 bytes usando Strawberry Perl: 31 bytes, más 1 para en -nElugar de -e, más 3 para espacio + -i(usado para la entrada de una sola letra; la cadena más larga es de STDIN).

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

Sin embargo, no tengo dudas de que esto es factible sin chomp;usar <<<, que es de 29 bytes, aunque no puedo probarlo yo mismo usando Strawberry.

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

Así:

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

Perl 6 ,  47 40  38 bytes

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

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

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

Expandido:

{       # 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

}

La razón que ...^se utilizó en lugar de ...es que &[eq]no volvería Truehasta que se repitiera el último valor.

05AB1E ,26 25 bytes

¬ˆ[¦Ð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

Pruébalo en línea!

Tenga en cuenta que ¬²k0Qpodría reescribirse ¬²Q, pero por alguna razón no funciona cuando el carácter actual es una comilla: Q devuelve la cadena real en lugar de un booleano y provoca un bucle infinito.

Este código se puede seguir jugando ya que ¯J?está duplicado. Mover esta parte en el bucle eliminaría la duplicación y también permitiría soltar el corchete de cierre.

Python 2, 71 66 bytes:

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

Un programa completo Toma 2 entradas a través de STDIN en el formato '<String>','<Char>'.

Además, aquí hay una solución recursiva actualmente en 140 bytes :

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)

Este debería llamarse en el formato print(Q('<String>','<Char>')).

Python 3 , 72 bytes

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

Pruébalo en línea!

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

Ponerse a dieta:

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

JavaScript (ES6), 74 bytes

(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 bytes

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

No estoy seguro de si se acepta el código de aficionado en este intercambio, pero estoy interesado en aprender a codificar el golf, aunque soy terrible, ¿alguna ayuda sobre cómo conseguiría que este programa se vea tan pequeño como los otros aquí?

EDITAR:

Reemplaza put con p

Se eliminó una tonelada de espacios en blanco y bytes contados correctamente gracias al Asistente de trigo

Gracias a challenger5 pasó de s=gets.chop;c=gets.chop;as,c=gets.chop,gets.chop;

reemplazado thencon ;y gets.chopcon gets[0]gracias Mhutter!

Tomando entrada como variables de línea de comando ahora, por ejemplo. prog.rb helloworld l

Gracias a numerosas mejoras mediante la sustitución de jeroenvisser101 a=s.dupcon s=""+ay la anterior sentencia if if s[i]!=c;s[i]="";p s;else i+=1;endcon (d!=c)?(s[i]="";p s):i+=1;gran mejora!

c90, 129 125 bytes

con espacios en blanco:

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););
}

sin espacios en blanco:

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););}

sin golf:

#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);
    }
}

Esto lleva un puntero al inicio de la cadena y realiza un bucle, iterando este puntero hasta que llega al final de la cadena. Dentro del ciclo, imprime el primer carácter, luego cualquier instancia del segundo argumento que encuentra entre el inicio de la cadena y el puntero. Después de esto, llama a puestos en el puntero, imprimiendo el resto de la cadena.

Esto debe compilarse en un sistema donde sizeof (int) == sizeof (char *). +3 bytes de lo contrario.

Esta es la primera vez que intento jugar golf con código aquí, así que estoy seguro de que hay algunas optimizaciones que hacer.

Dyalog APL , 27 bytes

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

⍺es el carácter excluido, ⍵es la cadena inicial

argumento de impresión; encontrar el índice idel primer no ⍺después del primer carácter; si se encuentra, llame recursivamente con ieliminado

Mathematica, 64 bytes

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

Función anónima. Toma dos cadenas como entrada y devuelve una lista de cadenas como salida. Funciona eliminando repetidamente la primera no instancia del personaje.

PHP, 88 84 86 85 82 81 78 bytes

1 byte guardado gracias a @IsmaelMiguel, 3 bytes gracias a @ user59178, 3 bytes inspirados por @ user59178

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

toma datos de los argumentos de la línea de comandos; corre conphp -r <code> '<string>' <character>

• agrega una nueva línea a la entrada para una impresión final implícita.
  Eso agrega 5 4 bytes de código, pero guarda en la salida y un adicional echo$a;.

05AB1E, 26 24 23 bytes

¡Gracias @Kade por 2 bytes!
¡Gracias @Emigna por 1 byte!

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

Utiliza la codificación CP-1252 . Pruébalo en línea!

y²k0Ê podría ser y²Ê pero lo "arruina todo.

Esto probablemente podría ser más golf porque «se repite dos veces. Por favor, deje un comentario si tiene alguna sugerencia o forma de jugar más golf.

Java 10, 155 140 139 124 bytes

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;}

Pruébalo en línea.

Explicación:

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

Antigua respuesta recursiva de 139 bytes:

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;}}

-1 bytes gracias a @Eugene . (La próxima vez haga un comentario en lugar de editar la publicación de otra persona, por favor).

Pruébalo en línea.

Explicación:

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 bytes

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;}

Sin golf:

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;
    }
}

Devuelve una colección de cadenas.

TSQL, 127 bytes (excluyendo definiciones de variables)

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

Formateado:

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 bytes

Golfizado:

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);}}

Sin golf:

    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);
        }
    }

La función devuelve la colección de cadenas.

EDITAR1: @psycho notó que el algoritmo no se implementó correctamente.

EDIT2: Variable creada para s.Length. Un byte guardado gracias a @TheLethalCoder.

Python 2 - 65 73 bytes

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

Y una solución recursiva de 76 Bytes , porque a pesar de ser más larga que la primera, me gusta más:

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]

Raqueta 194 bytes

(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)]))

Sin golf:

(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)])))

Pruebas:

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

Salida:

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

Devolver una sola cadena con nuevas líneas

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>

Swift 3 - 151 147 bytes

Swift no es el lenguaje ideal para jugar al golf, especialmente cuando se relaciona con la indexación de cadenas. Esto es lo mejor que puedo hacer:

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}}

Desafortunadamente, Swift necesita espacios alrededor !=(pero no para ==), y Swift 3 dejó caer al ++operador. El truco para ambos es convertir a una matriz de caracteres que permita la indexación de enteros y usar la interpolación de cadenas de un carácter para volver a convertir a String( "\(c)").

Sin golf:

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
    }
}

Solución previa no recursiva

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 bytes

jljjhF3<Q/Q*jih>s

Pruébalo aquí!

                  - 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 bytes

Maldita sea Martin Ender, casi fui el primero: p

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

Función sin nombre; Implementación sencilla con un Whilebucle y algunas variables temporales.

JavaScript ES6, 89 bytes

Pensé que sería un desafío fácil, pero estoy bastante seguro de que me falta algo aquí ...

Utiliza la recursividad y devuelve una serie de cadenas.

(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 bytes

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