(แรงบันดาลใจอย่างมากจากองค์ประกอบของสตริงที่ดัชนีที่ระบุ )

กำหนดสตริงsและจำนวนเต็มnแทนดัชนีในsเอาท์พุทที่sมีตัวละครที่nตำแหน่ง -th ลบออก

0-indexing และ 1-indexing ได้รับอนุญาต

• 0 การจัดทำดัชนี, จะไม่เป็นลบและน้อยกว่าความยาวของns
• สำหรับ 1 การจัดทำดัชนีจะเป็นบวกและน้อยกว่าหรือเท่ากับความยาวของns

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"

นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ

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.

Japtap , 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"]

ขอบคุณ Martin Ender

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และปลายทางสตริง แต่ดูเหมือนว่าจะทำงานดังนั้น glibc ทั้งระมัดระวังมากขึ้นหรือฉันโชคดี
• คำตอบคือพึ่งพาความจริงที่ว่าเกิดขึ้นก่อนs+=n คมาตรฐานไม่ให้การค้ำประกันดังกล่าวและในความเป็นจริงโทรออกนี้เป็นพฤติกรรมที่ไม่ได้กำหนด ดูเหมือนว่าจะทำงานได้ตามต้องการกับคอมไพเลอร์ gcc บน x86_64 Linuxs-1

ลองมันออนไลน์

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) เพื่อเตรียมพร้อมสำหรับการทำซ้ำครั้งถัดไป

เป็นกลุ่ม 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 (หรือสูงกว่า) ตอนนี้ <>ในฐานะที่เป็นฟังก์ชั่นในกลุ่ม Semig อยู่ในโหมโรง มันมีประโยชน์อย่างยิ่งในฟังก์ชั่น Semigroup

take<>drop.succ

ลองออนไลน์!
เนื่องจาก tio ใช้ GHC รุ่นเก่ากว่าฉันจึงนำเข้า<>ในส่วนหัว

R, 40 ไบต์

เพียงไปเพื่อแสดงความหลากหลายของวิธีการซึ่งไม่มีขนาดกะทัดรัดโดยเฉพาะอย่างยิ่งคุณสามารถซอกับสตริงในอาร์

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) และสตริง (ตามลำดับ) และพิมพ์ผลลัพธ์

ในฐานะที่เป็นฟังก์ชัน dyadic จะส่งคืนรายการของสองส่วน

ในความเป็นจริงดัชนีอาจเป็นรายการดัชนี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

เป็นกลุ่ม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 ไบต์บันทึกขอบคุณที่Arnauld

brainfuck , 14 ไบต์

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

ลองออนไลน์!

อ่านดัชนีหนึ่งไบต์ตามดัชนีทันทีตามด้วยสตริง

Befunge-98 , 35 27 25 ไบต์

-4 ไบต์ต้องขอบคุณ @ eush77

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

ลองออนไลน์!

ทำดัชนี 1 รายการโปรดทราบว่าอินพุตมีการต่อท้าย null-byte

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

แยกสตริงออกเป็นอักขระแต่ละตัวแล้วลบ nth แล้วเชื่อมต่ออีกครั้ง

อาจจะมีวิธีแก้ปัญหาที่ดีกว่า strsplit () ค่อนข้างเทอะทะเพราะจะส่งคืนรายการ