Dada uma sequência Se uma lista de índices X, modifique Sremovendo o elemento em cada índice Senquanto usa esse resultado como o novo valor de S.

Por exemplo, dado S = 'codegolf'e X = [1, 4, 4, 0, 2],

0 1 2 3 4 5 6 7  |
c o d e g o l f  |  Remove 1
c d e g o l f    |  Remove 4
c d e g l f      |  Remove 4
c d e g f        |  Remove 0
d e g f          |  Remove 2
d e f

Sua tarefa é executar esse processo, coletar os valores Sapós cada operação e exibir cada um em uma nova linha em ordem. A resposta final seria

S = 'codegolf'
X = [1, 4, 4, 0, 2]

Answer:

codegolf
cdegolf
cdeglf
cdegf
degf
def

• Isso é código-golfe, então faça seu código o mais curto possível.
• Você pode assumir que os valores em Xsempre são índices válidos Se pode usar a indexação com base em 0 ou em 1.
• A cadeia conterá apenas [A-Za-z0-9]
• De qualquer Sou xpodem por esvaziar. Se Sestiver vazio, segue-se que xtambém deve estar vazio.
• Você também pode usar Scomo uma lista de caracteres em vez de uma string.
• Você pode imprimir a saída ou retornar uma lista de seqüências de caracteres. Os espaços em branco à esquerda e à direita são aceitáveis. Qualquer forma de saída é boa, desde que seja facilmente legível.

Casos de teste

S = 'abc', x = [0]
'abc'
'bc'

S = 'abc', x = []
'abc'

S = 'abc', x = [2, 0, 0]
'abc'
'ab'
'b'
''

S = '', x = []
''

S = 'codegolfing', x = [10, 9, 8, 3, 2, 1, 0]
'codegolfing'
'codegolfin'
'codegolfi'
'codegolf'
'codgolf'
'cogolf'
'cgolf'
'golf'

Haskell, 38 33 bytes

s#i=take i s++drop(i+1)s
scanl(#)

Para a frente: pegue os elementos repetidamente antes e depois do índice i, junte-os novamente e colete os resultados.

Experimente online!

Edit: @Lynn salvou 5 bytes. Obrigado!

JavaScript (ES6), 57 50 48 45 42 bytes

Pega a sequência como uma matriz de caracteres individuais, gera uma matriz contendo uma sequência separada por vírgula do original seguida por uma sub-matriz de sequências separadas por vírgula para cada etapa.

s=>a=>[s+"",a.map(x=>s.splice(x,1)&&s+"")]

• 3 bytes salvos graças a Arnauld, sugerindo que eu abuse mais da especificação de saída solta do que já era, o que me levou a abusar ainda mais por mais 3 bytes de economia.

Teste-o

o.innerText=JSON.stringify((f=

s=>a=>[s+"",a.map(x=>s.splice(x,1)&&s+"")]

)([...i.value="codegolf"])(j.value=[1,4,4,0,2]));oninput=_=>o.innerText=JSON.stringify(f([...i.value])(j.value.split`,`))

label,input{font-family:sans-serif;font-size:14px;height:20px;line-height:20px;vertical-align:middle}input{margin:0 5px 0 0;width:100px;}

<label for=i>String: </label><input id=i><label for=j>Indices: </label><input id=j><pre id=o>

Explicação

Pegamos as duas entradas por meio de parâmetros s(a matriz de strings) e a(a matriz inteira) na sintaxe de curry, o que significa que chamamos a função com f(s)(a).

Criamos uma nova matriz e começamos com a original s . No entanto, como o splicemétodo que usaremos posteriormente modifica uma matriz, precisamos fazer uma cópia dela, o que podemos fazer convertendo-a em uma cadeia de caracteres (basta acrescentar uma cadeia vazia).

Para gerar a sub map-matriz , passamos o mouse sobre o array inteiro a(onde xé o inteiro atual) e, para cada elemento, extraímos splice1 elemento s, começando no índice x. Retornamos o modificado s, novamente fazendo uma cópia dele convertendo-o em uma string.

Japonês , 6 bytes

åjV uV

Teste online!

Explicação

UåjV uV   Implicit: U = array of integers, V = string
Uå        Cumulatively reduce U by
  j         removing the item at that index in the previous value,
   V        with an initial value of V.
     uV   Push V to the beginning of the result.

Alternativamente:

uQ åjV

UuQ       Push a quotation mark to the beginning of U.
    å     Cumulatively reduce by
     j      removing the item at that index in the previous value,
      V     with an initial value of V.

Isso funciona porque a remoção do item no índice "não faz nada e, portanto, retorna a string original.

Casca , 7 bytes

G§+oh↑↓

Pega primeiro a sequência e depois os índices (com base em 1). Experimente online!

Explicação

G§+oh↑↓
G        Scan from left by function:
           Arguments are string, say s = "abcde", and index, say i = 3.
      ↓    Drop i elements: "de"
     ↑     Take i elements
   oh      and drop the last one: "ab"
 §+        Concatenate: "abde"
         Implicitly print list of strings on separate lines.

Python 2 , 43 bytes

s,i=input()
for i in i+[0]:print s;s.pop(i)

Experimente online!

Qualquer forma de saída é boa, desde que seja facilmente legível.

Portanto, isso é impresso como listas de caracteres.

Python 2 , 47 bytes

Isso pode ser reduzido para 43 bytes , como o @LuisMendo apontou, mas essa já é a solução do @ ErktheOutgolfer.

a,b=input();print a
for i in b:a.pop(i);print a

Experimente online!

Java 8, 78 bytes

Este é um lambda ao curry, de int[]para um consumidor de StringBuilderou StringBuffer. A saída é impressa com saída padrão.

l->s->{System.out.println(s);for(int i:l)System.out.println(s.delete(i,i+1));}

Experimente Online

05AB1E , 11 bytes

v=ā0m0yǝÏ},

Experimente online!

v           # For each index:
 =          #   Print without popping
  ā         #   Push range(1, len(a) + 1)
   0m       #   Raise each to the power of 0. 
            #   This gives a list of equal length containing all 1s
     0yǝ    #   Put a 0 at the location that we want to remove
        Ï   #   Keep only the characters that correspond to a 1 in the new list
         }, # Print the last step

Mathematica, 70 bytes

(s=#;For[t=1,t<=Length@#2,Print@s;s=StringDrop[s,{#2[[t]]+1}];t++];s)&

Experimente online!

R , 46 32 bytes

function(S,X)Reduce(`[`,-X,S,,T)

Experimente online!

Aceita entrada como uma lista de caracteres e Xé baseado em 1. Reduceé o equivalente R de fold, a função nesse caso é [qual é o subconjunto. Repete -Xporque a indexação negativa em R remove o elemento e inité definida como S, accum=TRUEassim acumulamos os resultados intermediários.

R , 80 bytes

function(S,X,g=substring)Reduce(function(s,i)paste0(g(s,0,i-1),g(s,i+1)),X,S,,T)

Função de 2 argumentos, leva X 1-indexados. TomaS como uma corda.

Experimente online!

Haskell , 33 bytes

scanl(\s i->take i s++drop(i+1)s)

Experimente online!

PowerShell , 94 84 bytes

param($s,$x)$a=[Collections.Generic.list[char]]$s;$x|%{-join$a;,$a|% r*t $_};-join$a

Experimente online!

Recebe a entrada $scomo uma sequência e $xcomo uma matriz explícita. Em seguida, criamos com $abase em$s como uma lista.

As matrizes no PowerShell são de tamanho fixo (para nossos propósitos aqui), portanto, precisamos usar o [System.Collections.Generic.list]tipo longo para obter acesso à .removeAt()função, que faz exatamente o que diz na lata.

Eu sacrifiquei 10 bytes para incluir duas -joininstruções para tornar a saída bonita. O OP afirmou que a saída de uma lista de caracteres é boa, então eu poderia exibir apenas um $apouco -join$a, mas isso é realmente feio na minha opinião.

Economizou 10 bytes graças ao briantist.

Python 2 , 50 bytes

• Recebe string e lista de índices

s,i=input()
for j in i+[0]:print s;s=s[:j]+s[j+1:]

Experimente online!

05AB1E , 9 7 bytes

=svõyǝ=

Experimente online!

=s        # Print original string, swap with indices.
  v       # Loop through indices...
   õyǝ    # Replace current index with empty string.

-2 graças à ideia de @ETHProductions.

Retina , 58 bytes

¶\d+
¶¶1$&$*
+1`(?=.*¶¶.(.)*)(((?<-1>.)*).(.*)¶)¶.*
$2$3$4

Experimente online! Explicação:

¶\d+

Combine os índices (que nunca estão na primeira linha, portanto são sempre precedidos por uma nova linha).

¶¶1$&$*

Dê um espaço duplo nos índices, converta para unário e adicione 1 (porque os zeros são difíceis na Retina).

+1`

Altere repetidamente a primeira correspondência, que é sempre o valor atual da string.

   (?=.*¶¶.(.)*)

Recupere o próximo índice em $#1.

                (           .    ¶)

Capture a sequência, incluindo o $#1caractere th e uma nova linha.

                 ((?<-1>.)*) (.*)

Capture separadamente o prefixo e o sufixo do $#1th caractere da string.

                                   ¶.*

Corresponder ao índice.

$2$3$4

Substitua a sequência por ela mesma e o índice pelo prefixo e sufixo do $#1caractere th.

Pitão, 8 bytes

.u.DNYEz

Demonstração

Reduza, começando com a sequência e repetindo a lista de índices, na função de exclusão.

PowerShell , 54 58 bytes

param($s,$x),-1+$x|%{$z=$_;$i=0;-join($s=$s|?{$z-ne$i++})}

Experimente online!

Explicação

Recebe a entrada como uma matriz de caracteres ( [char[]]).

Percorre a gama de índices ( $x) além de uma injectados primeiro elemento de -1, em seguida, para cada um, atribui o elemento de corrente para $z, inicializa $ipara 0, em seguida, percorre o conjunto de caracteres ( $s), retornando uma nova matriz de apenas os caracteres cujo índice ( $i) não é igual a ( -ne) o índice atual a ser excluído ( $z). Essa nova matriz é atribuída de volta a $s, enquanto é retornada simultaneamente (isso acontece quando a atribuição é feita entre parênteses). O resultado retornado é -joined para formar uma sequência que é enviada ao pipeline.

A injeção -1no início garante que a string original seja impressa, pois é o primeiro elemento e um índice nunca coincide -1.

q / kdb +, 27 10 bytes

Solução:

{x _\0N,y}

Exemplos:

q){x _\0N,y}["codegolf";1 4 4 0 2]
"codegolf"
"cdegolf"
"cdeglf"
"cdegf"
"degf"
"def"
q){x _\0N,y}["abc";0]
"abc"
"bc"
q){x _\0N,y}["abc";()]
"abc"
q){x _\0N,y}["abc";2 0 0]
"abc"
"ab"
,"b"
""    
q){x _\0N,y}["";()]
""

Explicação:

Aproveita a funcionalidade de convergência\ e também descarte _.

{x _\0N,y}
{        } / lambda function, x and y are implicit variables
     0N,y  / join null to the front of list (y), drop null does nothing
   _\      / drop over (until result converges) printing each stage
 x         / the string (need the space as x_ could be a variable name)

Notas:

Se não precisássemos imprimir o resultado original, seriam 2 bytes em q:

q)_\["codegolfing";10 9 8 3 2 1 0]
"codegolfin"
"codegolfi"
"codegolf"
"codgolf"
"cogolf"
"cgolf"
"golf"

Perl 5 , 55 bytes (54 + " -l")

sub{print($s=shift);for(@_){substr$s,$_,1,"";print$s}}

Experimente online!

MATL , 8 bytes

ii"t[]@(

A indexação é baseada em 1.

Experimente online! Ou verifique os casos de teste .

Explicação

i      % Input string. Input has to be done explicitly so that the string
       % will be displayed even if the row vector of indices is empty
i      % Input row vector of indices
"      % For each
  t    %   Duplicate current string
  []   %   Push empty array
  @    %   Push current index
  (    %   Assignment indexing: write [] to string at specified index
       % End (implicit). Display stack (implicit)

C # (.NET Core) , 87 87 74 70 bytes

S=>I=>{for(int i=0;;S=S.Remove(I[i++],1))System.Console.WriteLine(S);}

Experimente online!

Apenas mostra que a recursão nem sempre é a melhor solução. Na verdade, é mais curto que minha resposta inválida original. Ainda imprime em STDOUT em vez de retornar, o que é necessário porque termina com um erro.

-4 bytes graças ao TheLethalCoder

C (gcc) , 99 bytes

j;f(s,a,i)char*s;int*a;{puts(s);for(j=0;j<i;j++){memmove(s+a[j],s+a[j]+1,strlen(s)-a[j]);puts(s);}}

Experimente online!

Pega a sequência, a matriz e o comprimento da matriz.

Pitão , 10 bytes

As alterações de regra me salvaram 1 byte:

V+E0Q .(QN

Experimente online!

Pitão , 11 bytes

V+E0sQ .(QN

Experimente online!

Gaia , 9 bytes

+⟪Seḥ+⟫⊣ṣ

^{Eu realmente deveria adicionar uma função "excluir no índice" ...}

Experimente online!

Explicação

+          Add the string to the list
 ⟪Seḥ+⟫⊣   Cumulatively reduce by this block:
  S         Split around index n
   e        Dump the list
    ḥ       Remove the first char of the second part
     +      Concatenate back together
        ṣ  Join the result with newlines

V , 12 bytes

òdt,GÙ@-|xHx

Experimente online!

Isso é indexado em 1, a entrada é como:

11,10,9,4,3,2,1,
codegolfing

Explicação

ò              ' <M-r>ecursively until error
 dt,           ' (d)elete (t)o the next , (errors when no more commas)
    G          ' (G)oto the last line
     Ù         ' Duplicate it down
        |      ' Goto column ...
      @-       ' (deleted number from the short register)
         x     ' And delete the character there
          H    ' Go back home
           x   ' And delete the comma that I missed

Swift 3 , 80 bytes

func f(l:[String],c:[Int]){var t=l;for i in c{print(t);t.remove(at:i)};print(t)}

Experimente online!

Pitão, 8 bytes

+zm=z.Dz

Suíte de teste!

explicação

+zm=z.DzdQ    # implicit: input and iteration variable
  m      Q    # for each of the elements of the first input (the array of numbers, Q)
     .Dzd     # remove that index from the second input (the string, z)
   =z         # Store that new value in z
+z            # prepend the starting value

Python 2 , 54

X,S=input()
for a in X:
    print S
    S=S[:a]+S[a+1:]
print S

Experimente Online

APL, 31 30 28 bytes

{⎕←⍺⋄⍵≡⍬:⍬⋄⍺[(⍳⍴⍺)~⊃⍵]∇1↓⍵}

Experimente online!

C# (Mono), 85 bytes

s=>a=>{for(int i=-2;++i<a.Count;)System.Console.WriteLine(s=i<0?s:s.Remove(a[i],1));}

Try it online!