( Belirtilen dizindeki dizgenin Elemanı tarafından büyük ölçüde ilham alındı )

Bir dize sve bir ndizini temsil eden bir tamsayı verildiğinde s, çıkarılan skarakterdeki karakterin bulunduğu çıktı n.

0-indeksleme ve 1-indekslemeye izin verilir.

• 0-indeksleme için, nnegatif olmayacak ve uzunluğundan daha az olacaktır s.
• 1 indeksleme için, npozitif ve uzunluğuna eşit veya daha az olacaktır s.

syalnızca yazdırılabilir ASCII karakterlerinden oluşacaktır ( \x20-\x7Eveya  ile ~).

Herhangi bir makul giriş / çıkışa izin verilir. Standart boşluklar uygulanır.

Testcases (0 dizinli):

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

Test vitrinleri (1 indeksli):

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

Bu kod golf , bayt cinsinden en kısa cevap kazanır.

C #, 20 19 bayt

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

Alice , 13 12 bayt

Leo'ya 1 byte kaydettiğin için teşekkürler.

/oI\!e]&
@ q

Çevrimiçi deneyin!

Girişin ilk satırı dize, ikinci satır 0 tabanlı dizindir.

açıklama

/    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 bayt

jV

Çevrimiçi deneyin!

K (Kona), 1 bayt

_

Yerleşikleri sevmeliyim. 0 tabanlı indeksleme. Kullanımı:

k)"abcdef" _ 3
"abcef"

Haskell , 28 24 Bayt

Laikoni sayesinde -4 bayt, bu sürüm 1 dizinli.

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

Eski cevap:

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

Değeri alan basit bir özyinelemeli işlev, bu 0 indeksli.

Benim ilk kez kod-golf bu yüzden belki de en uygun çözüm değil. Oh iyi.

Mathematica, 18 bayt

1 endeksli

#2~StringDrop~{#}&

giriş

[1, "abcde"]

Martin Ender teşekkür

V , 3 bayt

À|x

Çevrimiçi deneyin!

Bu 1 indeksleme kullanır.

CJam , 4 bayt

q~Lt

Çevrimiçi deneyin!

açıklama

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 işlevi, 25

1 tabanlı indeksleme.

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

Burada tanımsız davranış bol başıboş velociraptors dikkat edin :

• strcpy()Adam sayfası diyor kopyalama örtüşme, davranış tanımlanmamış olduğu nesneler arasında yer alırsa . Burada açıkça örtüşme var src ve dest dizgilerinin , ama iş gibi görünüyor, ya glibc daha dikkatli ya da şanslı oldum.
• Cevap, önceki s+=nolaylardan önce gerçekleştiğine bağlı.s-1 . C standart böyle bir garanti vermez ve aslında tanımsız davranış olarak bu out çağırır. Yine, x86_64 Linux'taki gcc derleyicisiyle gerektiği gibi çalışıyor gibi görünüyor.

Çevrimiçi deneyin .

MATL , 3 bayt

&)&

1 tabanlı indeksleme kullanır.

Çevrimiçi deneyin! Veya tüm test durumlarını doğrulayın .

açıklama

&    % 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üm test senaryoları ile değiştirilmiş versiyonda, `...Thiçbir giriş bulunana kadar kod sonsuz bir döngü içerisindedir . Her yinelemenin sonunda, display işlevi ( XD) açıkça çağrılır ve bir xsonraki yinelemeye hazırlanmak için yığın temizlenir ( ).

Vim, 7 bayt

jDk@"|x

Nasıl çalışır:

İki satır bekliyor; biri dize diğeri diğeri.

1. İkinci satıra git, numarayı sicile kopyala
2. İlk satıra git ve ardından kayıt defterinde @ "ile sütuna git.
3. İmlecin altındaki karakteri sil

Java 8, 39 bayt

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

Burada dene.

Java 7, 67 bayt

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

Burada dene.

Yakut , 16 bayt

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

Çevrimiçi deneyin!

Haskell , 15 bayt

Bu, yeni yayınlanan GHC 8.4.1 (veya daha üst sürüm) gerektirir. Şimdi <> , yarı gruplar üzerinde bir işlev olarak, Prelude'de. Semigroup fonksiyonunda özellikle yararlıdır.

take<>drop.succ

Çevrimiçi deneyin!
Tio daha eski bir GHC borsiyon kullandığı için <>, başlığa girdim .

R, 40 bayt

Bunlardan hiçbiri özellikle kompakt olan, R'de dizeleriyle oynayabileceğiniz çeşitli şekilleri göstermeye gider.

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

05AB1E , 5 bayt

ā²ÊÏJ

Çevrimiçi deneyin!

ā     # 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 bayt

vNÊiy?

Çevrimiçi deneyin!

açıklama

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

Pyth, 3 bayt

.DE

Burada dene.

İlk önce endeksi alır.

PHP, 42 Bayt

0 dizinlenmiş

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

Çevrimiçi deneyin!

JS (ES6), 41 32 31 bayt

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

Dayanarak bu . Kurutma ile girdi alır, ilk önce string, ikinci ise indexdir.

-9 @JohanKarlsson sayesinde

@ETHproductions sayesinde -1

Jöle , 3 bayt

Ṭœp

(1 tabanlı) dizini ve dizgiyi (bu sırayla) alan ve sonucu basan tam bir program.

İkili fonksiyon olarak iki bölümden oluşan bir liste döndürür.

Aslında, dizin n indislerin bir listesi olabilir , bu durumda n-1 bölümlerinin bir listesini verir .

Çevrimiçi deneyin! veya bir test odasına bakın .

Nasıl?

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

Birden fazla dizin kullanmaya örnek olarak:

      "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 indeksli girişi aşağıdaki biçimde alır:

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 byte'a teşekkürler !

Java 8, 45 41 bayt

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

@ OlivierGrégoire sayesinde 4 bayt kaydedildi

İlk kod golf, henüz Java için en kısa olmasa da, C # dışında bir şeye cevap veriyor.

Python 3 , 24 bayt

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

Çevrimiçi deneyin!

JavaScript (ES6), 39 34 33 bayt

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

• Arnauld sayesinde 5 6 bayt kaydedildi .

brainfuck , 14 bayt

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

Çevrimiçi deneyin!

Dizeye hemen ardından sıfır tabanlı bir bayt dizini okur.

Befunge-98 , 35 27 25 bayt

@ Eush77 sayesinde -4 bayt

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

Çevrimiçi deneyin!

1 indeksli, girişin sonunda boş bir bayt olduğuna dikkat edin.

PHP, 41 bayt, 35 bayt hariç? Php

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

0 endeksli

TIO

Japt , 3 2 bayt

jV

Çevrimiçi deneyin!

R, 48 47 bayt

( el()Giuseppe sayesinde 1 bayt kurtarıldı )

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

Dizgiyi kendi karakterlerine ayırın, nth'yi çıkarın ve sonra tekrar birleştirin.

Daha iyi bir çözüm olabilir, strsplit () bir liste döndürürken oldukça hantaldır.