(lấy cảm hứng rất nhiều từ Element of string ở chỉ mục đã chỉ định )

Cho một chuỗi svà một số nguyên nbiểu thị một chỉ mục trong s, đầu ra svới ký tự ở nvị trí -th được loại bỏ.

Chỉ mục 0 và lập chỉ mục 1 được cho phép.

• Đối với chỉ mục 0, nsẽ không âm và nhỏ hơn độ dài của s.
• Đối với chỉ mục 1, nsẽ dương và nhỏ hơn hoặc bằng độ dài của s.

ssẽ chỉ bao gồm các ký tự ASCII có thể in ( \x20-\x7Ehoặc  thông qua ~).

Bất kỳ đầu vào / đầu ra hợp lý đều được cho phép. Tiêu chuẩn áp dụng.

Testcase (0-index):

n s        output
0 "abcde"  "bcde"
1 "abcde"  "acde"
2 "a != b" "a = b"
3 "+-*/"   "+-*"
4 "1234.5" "12345"
3 "314151" "31451"

Testcase (1 chỉ mục):

n s        output
1 "abcde"  "bcde"
2 "abcde"  "acde"
3 "a != b" "a = b"
4 "+-*/"   "+-*"
5 "1234.5" "12345"
4 "314151" "31451"

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.

C #, 20 19 byte

s=>n=>s.Remove(n,1)

Alice , 13 12 byte

Cảm ơn Leo vì đã tiết kiệm 1 byte.

/oI\!e]&
@ q

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

Dòng đầu tiên của đầu vào là chuỗi, dòng thứ hai là chỉ số dựa trên 0.

Giải trình

/    Reflect to SE. Switch to Ordinal. While in Ordinal mode, the IP bounces
     diagonally up and down through the code.
I    Read the first line of input (the string).
!    Store the string on the tape, which writes the characters' code points to 
     consecutive cells (the tape is initialised to all -1s).
]    Move the tape head right. This moves it by an entire string, i.e. to the
     cell after the -1 that terminates the current string.
     The IP bounces off the bottom right corner and turns around.
]    Move the tape head right by another cell.
!    Store an implicit empty string on the tape, does nothing. It's actually
     important that we moved the tape head before this, because otherwise it
     would override the first input code point with a -1.
I    Read the second line of input (the index) as a string.
/    Reflect to W. Switch to Cardinal.
     The IP wraps around to the last column.
&]   Implicitly convert the first input to the integer value it contains
     (the index) and move the tape head that many cells to the right, i.e.
     onto the character we want to delete. Note that Ordinal and Cardinal mode
     have two independent tape heads on the same tape, so the Cardinal tape
     head is still on the first cell of the string input before we do this.
e!   Store a -1 in the cell we want to delete.
\    Reflect to SW. Switch to Ordinal.
q    Push the entire tape contents as a single string. This basically takes
     all cells which hold valid code points from left to right on the tape 
     and concatenates the corresponding characters into a single string. Since
     we wrote a -1 (which is not a valid code point) over the target character,
     this will simply push the entire input string without that character.
o    Output the result.
@    Terminate the program.

Japt , 2 byte

jV

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

K (Kona), 1 byte

_

Yêu phải tích hợp. Lập chỉ mục dựa trên 0. Sử dụng:

k)"abcdef" _ 3
"abcef"

Haskell , 28 24 byte

-4 byte nhờ Laikoni, phiên bản này được lập chỉ mục 1.

s#n=take(n-1)s++drop n s

Câu trả lời cũ:

f(s:t)0=t;f(s:t)n=s:f t(n-1)

Một hàm đệ quy đơn giản lấy giá trị, nó được lập chỉ mục 0.

Lần đầu tiên tôi chơi golf, có lẽ đó không phải là giải pháp tối ưu. Ồ tốt

Toán học, 18 byte

1 chỉ mục

#2~StringDrop~{#}&

đầu vào

[1, "abcde"]

cảm ơn Martin Ender

V , 3 byte

À|x

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

Điều này sử dụng lập chỉ mục 1.

CJam , 4 byte

q~Lt

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

Giải trình

q~    e# Read and eval input (push the string and number to the stack).
  Lt  e# Set the nth element of the string to the empty string.

Chức năng GCC c, 25

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

f(n,s){strcpy(s-1,s+=n);}

Rất nhiều hành vi không xác định ở đây vì vậy hãy coi chừng các Velociraptors đi lạc :

• Các strcpy()trang người đàn ông nói Nếu sao chép diễn ra giữa các đối tượng chồng chéo, hành vi là undefined . Ở đây rõ ràng có sự chồng chéo của chuỗi src và Dest , nhưng nó dường như hoạt động, vì vậy hoặc glibc cẩn thận hơn hoặc tôi đã gặp may mắn.
• Câu trả lời là phụ thuộc vào thực tế là s+=nxảy ra trước s-1. Các c tiêu chuẩn cho phép không đảm bảo như vậy, và trong thực tế các cuộc gọi ra đây là hành vi không xác định. Một lần nữa, nó dường như hoạt động theo yêu cầu với trình biên dịch gcc trên x86_64 Linux.

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

MATL , 3 byte

&)&

Sử dụng lập chỉ mục dựa trên 1.

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

Giải trình

&    % Specify secondary default number of inputs/outputs for next function
)    % Implicitly input string and number. Index: with & it pushes the char
     % defined by the index and the rest of the string
&    % Specify secondary default number of inputs/outputs for next function
     % Implicitly display (XD): with & it only displays the top of the stack

Trong phiên bản sửa đổi với tất cả các trường hợp thử nghiệm, mã nằm trong một vòng lặp vô hạn `...Tcho đến khi không tìm thấy đầu vào. Vào cuối mỗi lần lặp, hàm hiển thị ( XD) được gọi rõ ràng và ngăn xếp được xóa ( x) để sẵn sàng cho lần lặp tiếp theo.

Vim, 7 byte

jDk@"|x

Làm thế nào nó hoạt động:

Nó mong đợi hai dòng; một với chuỗi và một với số.

1. Chuyển đến dòng hai, sao chép số vào đăng ký
2. Chuyển đến dòng đầu tiên và sau đó chuyển đến cột trong đăng ký với @ "|
3. Xóa ký tự dưới con trỏ

Java 8, 39 byte

s->n->s.substring(0,n)+s.substring(n+1)

Hãy thử nó ở đây.

Java 7, 67 byte

String c(int n,String s){return s.substring(0,n)+s.substring(n+1);}

Hãy thử nó ở đây.

Ruby , 16 byte

->n,s{s[n]='';s}

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

Haskell , 15 byte

Điều này đòi hỏi GHC 8.4.1 được phát hành gần đây (hoặc cao hơn). Bây giờ <> , là một chức năng trên Semigroups, nằm trong Prelude. Nó đặc biệt hữu ích trên chức năng Semigroup

take<>drop.succ

Hãy thử trực tuyến!
Vì tio đang sử dụng một GHC cũ hơn, tôi đã nhập <>vào tiêu đề.

R, 40 byte

Chỉ cần hiển thị nhiều cách khác nhau, không có cách nào đặc biệt nhỏ gọn, bạn có thể sử dụng chuỗi trong R.

function(s,n)intToUtf8(utf8ToInt(s)[-n])

05AB1E , 5 byte

ā²ÊÏJ

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

ā     # push range(1, len(input string) + 1)
 ²Ê   # Check each for != to input index
   Ï  # Keep characters from input where this array is 1
    J # Join

05AB1E , 6 byte

vNÊiy?

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

Giải trình

v       # for each element, index (y,N) in input1
 NÊi    # if N is not equal to input2
    y?  # print y

Bình thường, 3 byte

.DE

Hãy thử nó ở đây.

Lấy chỉ số đầu tiên.

PHP, 42 byte

0 được lập chỉ mục

<?=substr_replace($argv[1],"",$argv[2],1);

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

JS (ES6), 41 32 31 byte

y=>i=>y.slice(0,i++)+y.slice(i)

Dựa trên điều này . Đưa đầu vào thông qua currying, đầu tiên là chuỗi, thứ hai là chỉ mục.

-9 cảm ơn @JohanKarlsson

-1 cảm ơn @ETHproductions

Thạch , 3 byte

Ṭœp

Một chương trình đầy đủ lấy chỉ mục (dựa trên 1) và chuỗi (theo thứ tự đó) và in kết quả.

Là một chức năng dyadic, nó trả về một danh sách của hai phần.

Trong thực tế, chỉ mục có thể là một danh sách gồm n chỉ số, trong trường hợp đó, nó trả về một danh sách các phần n-1 .

Hãy thử trực tuyến! Hoặc xem một bộ kiểm tra .

Làm sao?

Ṭœp - Main link: number i, string s                   e.g. "fish 'n chips", 6
Ṭ   - untruth - get a list with 1s at the indexes of i      000001 <-- i.e. [0,0,0,0,0,1]
 œp - partition s at truthy indexes without borders       ["fish ","n chips"]
    - implicit print                                        fish n chips

Như một ví dụ về việc sử dụng nhiều chỉ mục:

      "fish and chips", [6,8]
Ṭ      00000101 <- i.e. [0,0,0,0,0,1,0,1]
 œp  ["fish ","n"," chips"] 
       fish n chips

vim, 10 7

DgJ@"|x

Có đầu vào 1 chỉ mục theo định dạng sau:

2
abcde

D      delete the number on the first line into register "
gJ     remove the newline while preserving whitespace on line 2
@"     run the " register as a macro - input is used as a count for...
|      the "go to nth column" command
x      delete the character at the cursor

Cảm ơn @DJMcMayhem cho 3 byte!

Java 8, 45 41 byte

s->n->new StringBuffer(s).deleteCharAt(n)

Đã lưu 4 byte nhờ @ OlivierGrégoire

Câu trả lời golf mã đầu tiên của tôi trong một cái gì đó không phải là C #, ngay cả khi nó chưa phải là ngắn nhất cho Java.

Con trăn 3 , 24 byte

lambda n,a:a[:n]+a[n+1:]

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

JavaScript (ES6), 39 34 33 byte

n=>s=>s.replace(/./g,c=>n--?c:"")

• 5 6 byte được lưu nhờ Arnauld .

Brainfuck , 14 byte

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

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

Đọc chỉ mục một byte dựa trên zero ngay sau chuỗi.

Befunge-98 , 35 27 25 byte

-4 byte nhờ @ eush77

&#;1-:!#v_~,;
_@#:~;#~<;,

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

1 chỉ mục, lưu ý rằng đầu vào có một byte rỗng.

PHP, 41 byte, 35 byte không bao gồm? Php

<?php $argv[1][$argv[2]]='';echo$argv[1];

Chỉ số 0

TIO

Japt , 3 2 byte

jV

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

R, 48 47 byte

(1 byte được lưu thông qua việc sử dụng el()cảm ơn Giuseppe)

function(s,n)cat(el(strsplit(s,""))[-n],sep="")

Tách chuỗi thành các ký tự riêng lẻ, loại bỏ ký thứ n và sau đó nối lại.

Cũng có thể có một giải pháp tốt hơn, strsplit () khá khó sử dụng vì nó trả về một danh sách.