（很大程度上受指定索引处的string元素启发）

给定一个字符串s和一个整数，该整数n表示中的索引s，输出s的字符在n-th位置已删除。

允许0索引和1索引。

• 对于0索引，n将为非负数且小于的长度s。
• 对于1索引，n将为正且小于或等于的长度s。

s将包括可打印的ASCII字符只（\x20-\x7E或 通过~）。

允许任何合理的输入/输出。有标准漏洞。

测试用例（0索引）：

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

测试用例（1索引）：

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

这是代码高尔夫球，因此最短答案以字节为单位。

C＃，20 19个字节

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

爱丽丝，13 12字节

感谢Leo节省了1个字节。

/oI\!e]&
@ q

在线尝试！

输入的第一行是字符串，第二行是从0开始的索引。

说明

/    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个字节

jV

在线尝试！

K（Kona），1个字节

_

要爱内置。基于0的索引。用法：

k)"abcdef" _ 3
"abcef"

Haskell，28个 24字节

-4字节感谢Laikoni，此版本为1索引。

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

旧答案：

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

一个简单的递归函数，该函数的值是0索引的。

我第一次进行代码搜索，所以也许这不是最佳解决方案。那好吧。

Mathematica，18个字节

1索引

#2~StringDrop~{#}&

输入

[1，“ abcde”]

谢谢马丁·恩德

V，3个字节

À|x

在线尝试！

这使用1索引。

CJam，4个字节

q~Lt

在线尝试！

说明

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.

GCC c函数，25

基于1的索引。

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

这里有很多不确定的行为，所以要小心流浪速龙：

• 该strcpy()手册页说，如果复制操作的对象之间重叠的，这种行为是未定义。显然，src和 dest字符串，但是它似乎可以工作，因此glibc会更加谨慎，或者我很幸运。
• 答案取决于事实s+=n发生在...之前s-1。该Ç标准没有给出这样的保证，而事实上调用此作为出不确定的行为。同样，它似乎可以在x86_64 Linux上的gcc编译器中正常工作。

在线尝试。

MATL，3个字节

&)&

使用基于1的索引。

在线尝试！或验证所有测试用例。

说明

&    % 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

在具有所有测试用例的修改版本中，代码处于无限循环内 `...T直到找不到输入为止。在每次迭代结束时，XD显式调用显示函数（），并清除堆栈（x），以准备进行下一次迭代。

Vim，7个字节

jDk@"|x

怎么运行的：

预期有两行；一个带字符串，另一个带数字。

1. 转到第二行，将数字复制到寄存器中
2. 转到第一行，然后使用@“ |转到寄存器中的列
3. 删除光标下方的字符

Java 8，39字节

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

在这里尝试。

Java 7，67字节

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

在这里尝试。

红宝石，16字节

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

在线尝试！

Haskell，15个字节

这需要最近发布的GHC 8.4.1（或更高版本）。现在 <>，作为Semigroups的功能，位于Prelude中。在功能Semigroup上特别有用

take<>drop.succ

在线尝试！
由于tio使用的是旧版本的GHC，因此我已将其导入<>标头中。

R，40个字节

只是为了展示各种方式，没有哪一种特别紧凑，您可以在R中弄弄字符串。

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

05AB1E，5个字节

ā²ÊÏJ

在线尝试！

ā     # 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个字节

vNÊiy?

在线尝试！

说明

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

Pyth，3个字节

.DE

在这里尝试。

首先获取索引。

PHP，42字节

0索引

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

在线尝试！

JS（ES6），41 32 31字节

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

基于此。通过curry获取输入，第一个是字符串，第二个是索引。

-9感谢@JohanKarlsson

-1感谢@ETHproductions

果冻，3 个字节

Ṭœp

完整程序，使用（从1开始）索引和字符串（按此顺序）并打印结果。

作为二进位函数，它返回两个部分的列表。

实际上，索引可以是n个索引的列表，在这种情况下，它返回n-1个部分的列表。

在线尝试！，或查看测试套件。

怎么样？

Ṭœ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

作为使用多个索引的示例：

      "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

采用以下格式的1索引输入：

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

感谢@DJMcMayhem 3个字节！

Java 8、45 41字节

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

@OlivierGrégoire节省了4个字节

我的第一个代码高尔夫用C＃以外的其他方式回答，即使它不是Java的最短代码。

Python 3，24字节

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

在线尝试！

JavaScript（ES6），39 34 33字节

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

• 5感谢Arnauld节省了6个字节。

头脑操，14字节

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

在线尝试！

立即读取从零开始的零字节索引，后跟字符串。

Befunge-98，35个 27 25字节

-4个字节，感谢@ eush77

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

在线尝试！

1索引，请注意输入的末尾为空字节。

PHP，41个字节，35个字节，不包括？php

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

0索引

蒂奥

Japt，3 2字节

jV

在线尝试！

R，48 47字节

（通过el()感谢Giuseppe 节省了1个字节）

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

将字符串拆分为各个字符，删除第n个，然后再次连接。

可能会有更好的解决方案，因为strsplit（）返回列表很麻烦。