Đưa ra một chuỗi Svà một danh sách các chỉ mục X, sửa đổi Sbằng cách loại bỏ phần tử tại mỗi chỉ mục Strong khi sử dụng kết quả đó làm giá trị mới của S.

Ví dụ, được đưa ra S = 'codegolf'và 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

Nhiệm vụ của bạn là thực hiện quy trình này, thu thập các giá trị Ssau mỗi thao tác và hiển thị từng giá trị trên một dòng mới theo thứ tự. Câu trả lời cuối cùng sẽ là

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

Answer:

codegolf
cdegolf
cdeglf
cdegf
degf
def

• Đây là mã golf, vì vậy hãy làm cho mã của bạn càng ngắn càng tốt.
• Bạn có thể giả định rằng các giá trị trong Xluôn là các chỉ số hợp lệ Svà bạn có thể sử dụng lập chỉ mục dựa trên 0 hoặc dựa trên 1.
• Chuỗi sẽ chỉ chứa [A-Za-z0-9]
• Hoặc Shoặc xcó thể bằng trống. Nếu Strống, nó theo đó xcũng phải trống.
• Bạn cũng có thể lấy Slàm danh sách các ký tự thay vì chuỗi.
• Bạn có thể in đầu ra hoặc trả về danh sách các chuỗi. Khoảng trắng hàng đầu và dấu là chấp nhận được. Bất kỳ hình thức đầu ra là tốt miễn là nó có thể dễ dàng đọc được.

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

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 byte

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

Đi thẳng: liên tục lấy các yếu tố trước và sau chỉ số i, nối lại chúng và thu thập kết quả.

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

Chỉnh sửa: @Lynn lưu 5 byte. Cảm ơn!

JavaScript (ES6), 57 50 48 45 42 byte

Lấy chuỗi dưới dạng một mảng các ký tự riêng lẻ, xuất ra một mảng chứa một chuỗi được phân tách bằng dấu phẩy của bản gốc theo sau là một chuỗi con của các chuỗi được phân tách bằng dấu phẩy cho mỗi bước.

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

• 3 byte được lưu nhờ Arnauld đề nghị tôi lạm dụng thông số đầu ra lỏng lẻo nhiều hơn tôi đã dẫn đến việc tôi lạm dụng nó thậm chí nhiều hơn để tiết kiệm thêm 3 byte.

Kiểm tra nó

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>

Giải trình

Chúng ta lấy hai đầu vào thông qua các tham số s(mảng chuỗi) và a(mảng số nguyên) theo cú pháp currying, nghĩa là chúng ta gọi hàm với f(s)(a).

Chúng tôi xây dựng một mảng mới và bắt đầu với mảng ban đầu s. Tuy nhiên, vì splicephương pháp chúng ta sẽ sử dụng sau này để sửa đổi một mảng, chúng ta cần tạo một bản sao của nó, điều mà chúng ta có thể làm bằng cách chuyển đổi nó thành một chuỗi (chỉ cần nối thêm một chuỗi trống).

Để tạo phân đoạn con, chúng ta mapqua mảng số nguyên a(trong đó xlà số nguyên hiện tại) và, với mỗi phần tử, chúng ta splice1 phần tử từ s, bắt đầu tại chỉ mục x. Chúng tôi trả lại sửa đổi s, một lần nữa tạo một bản sao của nó bằng cách chuyển đổi nó thành một chuỗi.

Japt , 6 byte

åjV uV

Kiểm tra nó trực tuyến!

Giải trình

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.

Cách khác:

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.

Điều này hoạt động vì loại bỏ mục tại chỉ mục "không làm gì và do đó trả về chuỗi gốc.

Husk , 7 byte

G§+oh↑↓

Đầu tiên là chuỗi, sau đó (chỉ dựa trên 1). Hãy thử trực tuyến!

Giải trình

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 byte

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

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

Bất kỳ hình thức đầu ra là tốt miễn là nó có thể dễ dàng đọc được.

Vì vậy, điều này in như danh sách các ký tự.

Con trăn 2 , 47 byte

Điều này có thể được rút ngắn xuống còn 43 byte , như @LuisMendo đã chỉ ra, nhưng đó đã là giải pháp của @ ErktheOutgolfer.

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

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

Java 8, 78 byte

Đây là một lambda cà ri, từ int[]một người tiêu dùng StringBuilderhoặc StringBuffer. Đầu ra được in ra tiêu chuẩn.

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

Dùng thử trực tuyến

05AB1E , 11 byte

v=ā0m0yǝÏ},

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

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

Toán học, 70 byte

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

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

R , 46 32 byte

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

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

Lấy đầu vào dưới dạng danh sách các ký tự và Xdựa trên 1. Reducelà tương đương R fold, hàm trong trường hợp này [là tập hợp con. Lặp đi lặp lại -Xvì lập chỉ mục tiêu cực trong R loại bỏ phần tử và initđược đặt thành S, accum=TRUEdo đó chúng tôi tích lũy các kết quả trung gian.

R , 80 byte

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

Hàm 2 đối số, lấy X1 chỉ mục. NhậnS như một chuỗi.

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

Haskell , 33 byte

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

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

PowerShell , 94 84 byte

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

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

Đưa đầu vào $sdưới dạng một chuỗi và $xnhư một mảng rõ ràng. Sau đó chúng tôi tạo ra $adựa trên$s danh sách.

Mảng trong PowerShell có kích thước cố định (cho mục đích của chúng tôi ở đây), vì vậy chúng tôi cần sử dụng [System.Collections.Generic.list]loại dài để có quyền truy cập vào .removeAt()chức năng, chính xác như những gì nó nói trên hộp thiếc.

Tôi đã hy sinh 10 byte để bao gồm hai -joincâu lệnh để làm cho đầu ra đẹp. OP đã tuyên bố rằng việc đưa ra một danh sách các ký tự là tốt, vì vậy tôi có thể xuất ra $athay vì -join$a, nhưng theo tôi thì điều đó thực sự xấu xí.

Đã lưu 10 byte nhờ briantist.

Con trăn 2 , 50 byte

• Có chuỗi và danh sách các chỉ số

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

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

05AB1E , 9 7 byte

=svõyǝ=

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

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

-2 nhờ ý tưởng từ @ETHSản phẩm.

Võng mạc , 58 byte

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

Hãy thử trực tuyến! Giải trình:

¶\d+

Khớp các chỉ số (không bao giờ nằm ​​trên dòng đầu tiên, vì vậy luôn được đặt trước một dòng mới).

¶¶1$&$*

Nhân đôi không gian các chỉ số, chuyển đổi thành unary và thêm 1 (vì các số 0 rất khó trong Retina).

+1`

Liên tục thay đổi trận đấu đầu tiên, luôn là giá trị hiện tại của chuỗi.

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

Lấy chỉ số tiếp theo trong $#1.

                (           .    ¶)

Nắm bắt chuỗi, bao gồm $#1ký tự thứ và một dòng mới.

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

Tách riêng tiền tố và hậu tố của $#1ký tự thứ của chuỗi.

                                   ¶.*

Phù hợp với chỉ số.

$2$3$4

Thay thế chuỗi bằng chính nó và chỉ mục bằng tiền tố và hậu tố của $#1ký tự thứ.

Bình thường, 8 byte

.u.DNYEz

Trình diễn

Giảm, bắt đầu bằng chuỗi và lặp qua danh sách các chỉ mục, trên hàm xóa.

PowerShell , 54 58 byte

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

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

Giải trình

Đưa đầu vào dưới dạng mảng char ([char[]] ).

Lặp qua mảng của các chỉ số ( $x) cộng với một tiêm tử đầu tiên của -1, sau đó cho mỗi người, gán các yếu tố hiện tại để $z, khởi $iđến 0, sau đó lặp qua mảng ký tự ( $s), trả về một mảng mới chỉ có các nhân vật có chỉ số ( $i) không bằng ( -ne) chỉ mục hiện tại để loại trừ ( $z). Mảng mới này được gán trở lại $s, trong khi đồng thời được trả về (điều này xảy ra khi việc gán được thực hiện trong ngoặc đơn). Kết quả trả về đó là -joined để tạo thành một chuỗi được gửi ra đường ống.

Việc tiêm -1vào lúc đầu đảm bảo rằng chuỗi gốc sẽ được in, vì đó là phần tử đầu tiên và một chỉ mục sẽ không bao giờ khớp -1.

q / kdb +, 27 10 byte

Giải pháp:

{x _\0N,y}

Ví dụ:

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}["";()]
""

Giải trình:

Tận dụng lợi thế của chức năng hội tụ\ cũng như thả _.

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

Ghi chú:

Nếu chúng tôi không cần in kết quả ban đầu, đây sẽ là 2 byte trong q:

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

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

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

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

MATL , 8 byte

ii"t[]@(

Lập chỉ mục là 1 dựa trên.

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

Giải trình

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 byte

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

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

Chỉ cần đi để cho thấy rằng đệ quy không phải luôn luôn là giải pháp tốt nhất. Điều này thực sự ngắn hơn câu trả lời không hợp lệ ban đầu của tôi. Vẫn in ra STDOUT thay vì trả lại, điều này là cần thiết bởi vì nó kết thúc bằng một lỗi.

-4 byte nhờ 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);}}

Try it online!

Takes the string, array, and the length of the array.

Bình thường , 10 byte

Thay đổi quy tắc đã lưu cho tôi 1 byte:

V+E0Q .(QN

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

Bình thường , 11 byte

V+E0sQ .(QN

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

Gaia , 9 byte

+⟪Seḥ+⟫⊣ṣ

^{Tôi thực sự nên thêm chức năng "xóa tại chỉ mục" ...}

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

Giải trình

+          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 byte

òdt,GÙ@-|xHx

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

Đây là 1 chỉ mục, đầu vào giống như:

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

Giải trình

ò              ' <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 byte

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

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

Bình thường, 8 byte

+zm=z.Dz

Bộ thử nghiệm!

giải trình

+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

Con trăn 2 , 54

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

Dùng thử trực tuyến

APL, 31 30 28 bytes

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

Try it 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!