(в значительной степени вдохновлен элементом строки по указанному индексу )

При наличии строки sи целого числа, nпредставляющего индекс in s, вывод sс nудаленным символом в -ой позиции.

0-индексация и 1-индексация разрешены.

• Для индексации 0 nбудет неотрицательным и меньше, чем длина s.
• Для 1-индексации nбудет положительным и меньше или равно длине s.

sбудет состоять только из печатных символов ASCII ( \x20-\x7Eили  сквозных ~).

Любой разумный ввод / вывод разрешен. Применяются стандартные лазейки .

Тестовые случаи (0-indexed):

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 байт

Спасибо Лео за сохранение 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()man говорит, что если копирование происходит между объектами, которые перекрываются, поведение не определено . Здесь явно есть совпадение строк src и dest , но, похоже, это работает, поэтому либо glibc более осторожен, либо мне повезло.
• Ответ зависит от того, что s+=nпроисходит до s-1. Стандарт c не дает таких гарантий и фактически называет это неопределенным поведением. Опять же, похоже, что он работает как требуется с компилятором gcc в Linux x86_64.

Попробуйте онлайн .

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явно вызывается функция display ( ), и стек очищается ( 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 (или выше). В настоящее время <> , как функция на полугруппах, находится в Prelude. Это особенно полезно на функции полугруппы

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)

На основании этого . Принимает ввод с помощью карри, первый - строка, второй - индекс.

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

Сохранено 4 байта благодаря @ OlivierGrégoire

Мой первый ответ на кодовый гольф в чем-то отличном от 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 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 индексированные

TIO

Japt , 3 2 байта

jV

Попробуйте онлайн!

R, 48 47 байт

(1 байт сохранен за счет использования el() благодаря Giuseppe)

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

Разбейте строку на отдельные символы, удалите n и снова объедините.

Возможно, есть лучшее решение, strsplit () довольно громоздкий, так как возвращает список.