Зникаючі елементи


17

Давши рядок Sі список індексів X, модифікуйте S, видаляючи елемент у кожному індексі S, використовуючи цей результат як нове значення S.

Наприклад, дані S = 'codegolf'та X = [1, 4, 4, 0, 2],

0 1 2 3 4 5 6 7  |
c o d e g o l f  |  Remove 1
c d e g o l f    |  Remove 4
c d e g l f      |  Remove 4
c d e g f        |  Remove 0
d e g f          |  Remove 2
d e f

Ваше завдання - виконати цей процес, зібрати значення Sпісля кожної операції та відобразити їх на новому рядку в порядку. Остаточна відповідь буде

S = 'codegolf'
X = [1, 4, 4, 0, 2]

Answer:

codegolf
cdegolf
cdeglf
cdegf
degf
def
  • Це тому зробіть свій код якомога коротшим.
  • Ви можете припустити, що значення в значеннях Xзавжди є дійсними S, і ви можете використовувати індексацію на основі 0 або 1.
  • Рядок буде містити тільки [A-Za-z0-9]
  • Або пустим, Sабо xможе. Якщо Sпорожній, випливає, що він xтакож повинен бути порожнім.
  • Ви також можете взяти Sза список символів замість рядка.
  • Ви можете або надрукувати результат або повернути список рядків. Простір провідних та задніх пробілів прийнятний. Будь-яка форма виходу є чудовою, якщо вона легко читається.

Випробування

S = 'abc', x = [0]
'abc'
'bc'

S = 'abc', x = []
'abc'

S = 'abc', x = [2, 0, 0]
'abc'
'ab'
'b'
''

S = '', x = []
''

S = 'codegolfing', x = [10, 9, 8, 3, 2, 1, 0]
'codegolfing'
'codegolfin'
'codegolfi'
'codegolf'
'codgolf'
'cogolf'
'cgolf'
'golf'
code-golf  string  array-manipulation  code-golf  string  ascii-art  code-golf  number  sequence  pi  code-golf  number  array-manipulation  code-golf  string  ascii-art  code-golf  math  number  game  code-golf  math  sequence  polynomials  recursion  code-golf  math  number  sequence  number-theory  code-golf  permutations  balanced-string  code-golf  string  ascii-art  integer  code-golf  decision-problem  hexagonal-grid  code-golf  ascii-art  kolmogorov-complexity  code-golf  number  code-golf  matrix  binary-matrix  code-golf  math  statistics  code-golf  string  polyglot  code-golf  random  lost  code-golf  date  path-finding  code-golf  string  code-golf  math  number  arithmetic  number-theory  code-golf  tetris  binary-matrix  code-golf  array-manipulation  sorting  code-golf  number  code-golf  array-manipulation  rubiks-cube  cubically  code-golf  grid  optimization  code-golf  math  function  code-golf  string  quine  code-golf  ascii-art  grid  code-golf  decision-problem  grid  simulation  code-golf  math  sequence  code-golf  path-finding  code-golf  ascii-art  grid  simulation  code-golf  number  whitespace  code-golf  sequence  code-golf  sequence  code-golf  sequence  integer  code-golf  math  game  code-golf  internet  stack-exchange-api  code-golf  sequence  code-golf  internet  stack-exchange-api  code-golf  math  factoring  code-challenge  sequence  polyglot  rosetta-stone  code-golf  string  browser  code-golf  date  code-golf  base-conversion  code-challenge  cops-and-robbers  hello-world  code-golf  cops-and-robbers  hello-world 

Чи можемо ми взяти Sза список персонажів?
Містер Xcoder

@ Mr.Xcoder Звичайно, я додам це у специфікації.
миль

Чи можемо ми друкувати як список символів?
Erik the Outgolfer

Чи можемо ми пропустити перший елемент (початковий рядок) у висновку?
ETHproductions

@ETHproductions Ні, вихідним повинен бути спочатку початковий рядок, а потім кожна рядок, що є результатом видалення символу. Отже, вихід повинен містити len(x)+1рядки.
миль

Відповіді:


8

Haskell, 38 33 байт

s#i=take i s++drop(i+1)s
scanl(#)

Прямо вперед: кілька разів беруть елементи до і після індексу i, приєднуються до них і збирають результати.

Спробуйте в Інтернеті!

Редагувати: @Lynn зберегла 5 байт. Спасибі!


s#i=take i s++drop(i+1)sнасправді коротше, економлячи 5 байт.
Лінн

1
Ні, вам зараз 33 роки - не забувайте, що фрагмент TIO є q=там ^^;
Лінн

Так, ти маєш рацію.
німі

8

JavaScript (ES6), 57 50 48 45 42 байт

Приймає рядок як масив окремих символів, виводить масив, що містить відокремлений комою рядок оригіналу, а потім підряд масивів, розділених комами, для кожного кроку.

s=>a=>[s+"",a.map(x=>s.splice(x,1)&&s+"")]
  • 3 байти збереглися завдяки Арнолду, який запропонував я зловживати специфікою вихідного виводу більше, ніж я вже був, що призвело до того, що я ще більше зловживав цим для збереження 3 байтів.

Перевірте це

o.innerText=JSON.stringify((f=

s=>a=>[s+"",a.map(x=>s.splice(x,1)&&s+"")]

)([...i.value="codegolf"])(j.value=[1,4,4,0,2]));oninput=_=>o.innerText=JSON.stringify(f([...i.value])(j.value.split`,`))
label,input{font-family:sans-serif;font-size:14px;height:20px;line-height:20px;vertical-align:middle}input{margin:0 5px 0 0;width:100px;}
<label for=i>String: </label><input id=i><label for=j>Indices: </label><input id=j><pre id=o>


Пояснення

Ми беремо два входи через параметри s(рядковий масив) і a(цілий масив) в синтаксисі currying, тобто ми називаємо функцію f(s)(a).

Ми будуємо новий масив і починаємо його з оригіналу s . Однак, якsplice метод, який ми будемо використовувати згодом, модифікує масив, нам потрібно зробити його копію, що ми можемо зробити, перетворивши його в рядок (просто додати порожній рядок).

Щоб генерувати підмасив, ми переносимо mapцілий масив a(де xє поточне ціле число), і для кожного елемента ми splice1 елемент s, починаючи з індексу x. Ми повертаємо модифікований s, знову робимо його копію, перетворюючи її в рядок.


Оскільки будь-яка форма виходу є чудовою, доки вона легко читається , я вважаю, що вона також повинна бути прийнятною:s=>a=>[s+'',...a.map(x=>s.splice(x,1)&&s+'')]
Арнольд

Хороший, @Ar yeard - я б не думав просунути його так далеко, навіть враховуючи цю специфікацію.
Shaggy

6

Japt , 6 байт

åjV uV

Перевірте це в Інтернеті!

Пояснення

UåjV uV   Implicit: U = array of integers, V = string
Uå        Cumulatively reduce U by
  j         removing the item at that index in the previous value,
   V        with an initial value of V.
     uV   Push V to the beginning of the result.

Як варіант:

uQ åjV

UuQ       Push a quotation mark to the beginning of U.
    å     Cumulatively reduce by
     j      removing the item at that index in the previous value,
      V     with an initial value of V.

Це працює, тому що видалення елемента в індексі "нічого не робить і тому повертає початковий рядок.


6

Лушпиння , 7 байт

G§+oh↑↓

Спочатку бере строковий, потім (1-й) індекс. Спробуйте в Інтернеті!

Пояснення

G§+oh↑↓
G        Scan from left by function:
           Arguments are string, say s = "abcde", and index, say i = 3.
      ↓    Drop i elements: "de"
     ↑     Take i elements
   oh      and drop the last one: "ab"
 §+        Concatenate: "abde"
         Implicitly print list of strings on separate lines.

Як використовувати порожній список індексів x?
миль

@miles Ви повинні вказати тип, як це .
Згарб

Я бачу, дякую. Я не дуже знайомий ні з Haskell, ні з Husk.
миль

6

Python 2 , 43 байти

s,i=input()
for i in i+[0]:print s;s.pop(i)

Спробуйте в Інтернеті!

Будь-яка форма виходу є чудовою, якщо вона легко читається.

Отже, це друкується як списки знаків.


1
Добре, але чому ти обрав позначення зловживання for i in i+[0]?
Містер Xcoder

@ Mr.Xcoder Тому, що таким чином відображається останній рядок. (і причину, яку я опублікував окремо на першому місці)
Ерік Переможник

Ні, ні +[0], я говорю for i in i. for k in iрівнозначний .
Містер Xcoder

@ Mr.Xcoder Тому що мені це подобається саме так ...
Ерік Вихідник

Гаразд, просто цікаво ... Може, це був трюк, про який я не знав :)
Містер Xcoder

5

Python 2 , 47 байт

Як це вказував @LuisMendo, це може бути скорочено до 43 байт , але це вже рішення @ ErktheOutgolfer.

a,b=input();print a
for i in b:a.pop(i);print a

Спробуйте в Інтернеті!


`a`[2::5]натомість''.join(a)
Род

@Rod Як працює?
Містер Xcoder

reprі розбиття рядків, добре працює, щоб перетворити список символів у рядок, `a`[1::3]також можна використовувати зі списком цифр
Rod

@Rod Я знаю, що це таке, я не розумію, як ::5тут працює: P
Містер Xcoder

@ Mr.Xcoder добре, тоді вивчіть нарізку рядків;) в основному це займає кожен 5-й
знак,

4

Java 8, 78 байт

Це витягнута лямбда від int[]споживача StringBuilderабо StringBuffer. Вихідні дані друкуються стандартно.

l->s->{System.out.println(s);for(int i:l)System.out.println(s.delete(i,i+1));}

Спробуйте це в Інтернеті


1
Ваша друга відповідь - це коректний запис. Ніщо не забороняє вам ретельно вибирати тип введення, поки це має сенс. Я вже кілька разів брав навіть Streamвкладку і отримав дуже приємні відповіді. Насправді майже всі мови для гольфу використовують потоки, еквівалентні всередині. Отже, вибравши свій вклад, ви просто вирівняєте тату. +1, тим не менше
Олів'є Грегоар

Maybe you're right. I think I tend to be more conservative than most about these things. I'll switch to the second solution.
Jakob

3

05AB1E, 11 bytes

v=ā0m0yǝÏ},

Try it online!

v           # For each index:
 =          #   Print without popping
  ā         #   Push range(1, len(a) + 1)
   0m       #   Raise each to the power of 0. 
            #   This gives a list of equal length containing all 1s
     0yǝ    #   Put a 0 at the location that we want to remove
        Ï   #   Keep only the characters that correspond to a 1 in the new list
         }, # Print the last step

The first line isn't there. Oh, and not sure if you can print like that.
Erik the Outgolfer

@EriktheOutgolfer Any form of output is fine as long as it is easily readable
Riley

I can save some bytes then...
Erik the Outgolfer


3

R, 46 32 bytes

function(S,X)Reduce(`[`,-X,S,,T)

Try it online!

Takes input as a list of characters and X is 1-based. Reduce is the R equivalent of fold, the function in this case is [ which is subset. Iterates over -X because negative indexing in R removes the element, and init is set to S, with accum=TRUE so we accumulate the intermediate results.

R, 80 bytes

function(S,X,g=substring)Reduce(function(s,i)paste0(g(s,0,i-1),g(s,i+1)),X,S,,T)

2-argument function, takes X 1-indexed. Takes S as a string.

Try it online!


Very smart to use Reduce here. Well done!
djhurio


3

PowerShell, 94 84 bytes

param($s,$x)$a=[Collections.Generic.list[char]]$s;$x|%{-join$a;,$a|% r*t $_};-join$a

Try it online!

Takes input $s as a string and $x as an explicit array. We then create $a based on $s as a list.

Arrays in PowerShell are fixed size (for our purposes here), so we need to use the lengthy [System.Collections.Generic.list] type in order to get access to the .removeAt() function, which does exactly what it says on the tin.

I sacrificed 10 bytes to include two -join statements to make the output pretty. OP has stated that outputting a list of chars is fine, so I could output just $a rather than -join$a, but that's really ugly in my opinion.

Saved 10 bytes thanks to briantist.


You can leave off System and just use [Collections.Generic.list[char]]. To keep it pretty without sacrificing bytes, you can put the last -join$a in the footer in TIO.
briantist

I think you can also save 3 bytes by changing $a.removeat($_) to ,$a|% r*t $_.
briantist

@briantist Thanks for those - I always forget to remove System from the class name. Sadly the last -join$a is necessary for the code, so I can't move it to the footer.
AdmBorkBork


2

05AB1E, 9 7 bytes

=svõyǝ=

Try it online!


=s        # Print original string, swap with indices.
  v       # Loop through indices...
   õyǝ    # Replace current index with empty string.

-2 thanks to idea from @ETHProductions.


This doesn't print anything if x is empty.
Riley

@Riley fixed. (#ETHProductions fixed.)
Magic Octopus Urn

1
Couldn't you just do =sv""yǝ= or something similar instead of replacing with a newline and then removing the newline?
ETHproductions

@ETHproductions õ also works :)
Magic Octopus Urn

Well I don't know 05AB1E, haha
ETHproductions

2

Retina, 58 bytes

¶\d+
¶¶1$&$*
+1`(?=.*¶¶.(.)*)(((?<-1>.)*).(.*)¶)¶.*
$2$3$4

Try it online! Explanation:

¶\d+

Match the indices (which are never on the first line, so are always preceded by a newline).

¶¶1$&$*

Double-space the indices, convert to unary, and add 1 (because zeros are hard in Retina).

+1`

Repeatedly change the first match, which is always the current value of the string.

   (?=.*¶¶.(.)*)

Retrieve the next index in $#1.

                (           .    ¶)

Capture the string, including the $#1th character and one newline.

                 ((?<-1>.)*) (.*)

Separately capture the prefix and suffix of the $#1th character of the string.

                                   ¶.*

Match the index.

$2$3$4

Replace the string with itself and the index with the prefix and suffix of the $#1th character.



2

PowerShell, 54 58 bytes

param($s,$x),-1+$x|%{$z=$_;$i=0;-join($s=$s|?{$z-ne$i++})}

Try it online!

Explanation

Takes input as a char array ([char[]]).

Iterates through the array of indices ($x) plus an injected first element of -1, then for each one, assigns the current element to $z, initializes $i to 0, then iterates through the array of characters ($s), returning a new array of only the characters whose index ($i) does not equal (-ne) the current index to exclude ($z). This new array is assigned back to $s, while simultaneously being returned (this happens when the assignment is done in parentheses). That returned result is -joined to form a string which is sent out to the pipeline.

Injecting -1 at the beginning ensures that the original string will be printed, since it's the first element and an index will never match -1.


1
Very clever way of pulling out the appropriate indices.
AdmBorkBork

2

q/kdb+, 27 10 bytes

Solution:

{x _\0N,y}

Examples:

q){x _\0N,y}["codegolf";1 4 4 0 2]
"codegolf"
"cdegolf"
"cdeglf"
"cdegf"
"degf"
"def"
q){x _\0N,y}["abc";0]
"abc"
"bc"
q){x _\0N,y}["abc";()]
"abc"
q){x _\0N,y}["abc";2 0 0]
"abc"
"ab"
,"b"
""    
q){x _\0N,y}["";()]
""

Explanation:

Takes advantage of the converge functionality \ as well as drop _.

{x _\0N,y}
{        } / lambda function, x and y are implicit variables
     0N,y  / join null to the front of list (y), drop null does nothing
   _\      / drop over (until result converges) printing each stage
 x         / the string (need the space as x_ could be a variable name)

Notes:

If we didn't need to print the original result, this would be 2 bytes in q:

q)_\["codegolfing";10 9 8 3 2 1 0]
"codegolfin"
"codegolfi"
"codegolf"
"codgolf"
"cogolf"
"cgolf"
"golf"

2

Perl 5, 55 bytes (54 + "-l")

sub{print($s=shift);for(@_){substr$s,$_,1,"";print$s}}

Try it online!


Nice! I came up with a very similar approach, but as a full program (using -pa) for 44 bytes: $_=<>;substr$_,shift@F,print,""while@F&&$_
Dom Hastings

Nice! Not sure you need the final &&$_ since you can assume the input is valid (the list of indices can't be longer than the string). Using the return value of print as the number of characters is quite slick.
aschepler

Ah, that's true! I didn't notice that part of the spec! I thought my answer was far too similar to yours to post separately though!
Dom Hastings

2

MATL, 8 bytes

ii"t[]@(

Indexing is 1-based.

Try it online! Or verify the test cases.

Explanation

i      % Input string. Input has to be done explicitly so that the string
       % will be displayed even if the row vector of indices is empty
i      % Input row vector of indices
"      % For each
  t    %   Duplicate current string
  []   %   Push empty array
  @    %   Push current index
  (    %   Assignment indexing: write [] to string at specified index
       % End (implicit). Display stack (implicit)

2

C# (.NET Core), 87 87 74 70 bytes

S=>I=>{for(int i=0;;S=S.Remove(I[i++],1))System.Console.WriteLine(S);}

Try it online!

Just goes to show that recursion isn't always the best solution. This is actually shorter than my original invalid answer. Still prints to STDOUT rather than returning, which is necessary because it ends with an error.

-4 bytes thanks to TheLethalCoder


Per a recent meta consensus (that I can't find) recursive lambdas in C# are disallowed unless you specify what they compile to in the byte count. Therefore, a full method is shorter in this case. I am downvoting until this is fixed, let me know when.
TheLethalCoder

@TheLethalCoder I may not agree with the consensus, but it does seem to be consensus. I've updated my answer.
Kamil Drakari

70 bytes. Use currying and move one statement into the loop to stop needing the loop braces.
TheLethalCoder

@TheLethalCoder Ah, so THAT's how you use currying in C#! I knew it was shorter for exactly two arguments, but it always ended up complaining about some part of my syntax. Thanks for the improvements
Kamil Drakari

No worries and yeah the first one must always be a Func that returns the other Func, Action, Predicate,...
TheLethalCoder



1

Gaia, 9 bytes

+⟪Seḥ+⟫⊣ṣ

I should really add a "delete at index" function...

Try it online!

Explanation

+          Add the string to the list
 ⟪Seḥ+⟫⊣   Cumulatively reduce by this block:
  S         Split around index n
   e        Dump the list
    ḥ       Remove the first char of the second part
     +      Concatenate back together
        ṣ  Join the result with newlines

1

V, 12 bytes

òdt,GÙ@-|xHx

Try it online!

This is 1-indexed, input is like:

11,10,9,4,3,2,1,
codegolfing

Explanation

ò              ' <M-r>ecursively until error
 dt,           ' (d)elete (t)o the next , (errors when no more commas)
    G          ' (G)oto the last line
     Ù         ' Duplicate it down
        |      ' Goto column ...
      @-       ' (deleted number from the short register)
         x     ' And delete the character there
          H    ' Go back home
           x   ' And delete the comma that I missed

How do I use an empty list of indices x?
miles

@miles By adding a few bytes :). Simply an empty first line will now work. Would you be OK if I took lists with a trailing comma? IE 1,2,3,. Empty list would be nothing, Singleton would be 1,
nmjcman101

Sure, you can use that input format.
miles


1

Pyth, 8 bytes

+zm=z.Dz

Test suite!

explanation

+zm=z.DzdQ    # implicit: input and iteration variable
  m      Q    # for each of the elements of the first input (the array of numbers, Q)
     .Dzd     # remove that index from the second input (the string, z)
   =z         # Store that new value in z
+z            # prepend the starting value



Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.