Zainspirowany tym pytaniem SO

Jako dane wejściowe otrzymasz niepustą listę liczb całkowitych, gdzie pierwsza wartość jest niezerowa. Aby skonstruować dane wyjściowe, przejdź od początku listy, wypisując po drodze każdą niezerową wartość. Gdy napotkasz zero, powtórz wartość dodaną ostatnio do wyniku.

Możesz napisać program lub funkcję i mieć wejście / wyjście w dowolnym dogodnym formacie, który nie koduje dodatkowych informacji, o ile nadal jest uporządkowaną sekwencją liczb całkowitych. W przypadku wypisywania z programu możesz wydrukować końcowy znak nowej linii. Poza tym końcowym znakiem nowej linii, dane wyjściowe powinny stanowić akceptowalny wkład do przesłania.

Najkrótszy kod w bajtach wygrywa.

Przypadki testowe

[1, 0, 2, 0, 7, 7, 7, 0, 5, 0, 0, 0, 9] -> [1, 1, 2, 2, 7, 7, 7, 7, 5, 5, 5, 5, 9]
[1, 0, 0, 0, 0, 0] -> [1, 1, 1, 1, 1, 1]
[-1, 0, 5, 0, 0, -7] -> [-1, -1, 5, 5, 5, -7]
[23, 0, 0, -42, 0, 0, 0] -> [23, 23, 23, -42, -42, -42, -42]
[1, 2, 3, 4] -> [1, 2, 3, 4]
[-1234] -> [-1234]

Pyth, 6 bajtów

mJ|dJQ

Demonstracja

m ... Qoznacza, że ​​mapuje funkcję na wejściu. Mapowana funkcja to J|dJ. Oznacza to J = d or Jw Pythonie, ponieważ Jimplikacja jest przypisywana do następującej wartości przy pierwszym użyciu. W przeciwieństwie do Pythona, wyrażenia przypisania zwracają wartość przypisaną w Pyth, więc mapa zwraca każdą kolejną wartość J, zależnie od potrzeb.

Galaretka , niekonkurująca

3 bajty Ta odpowiedź nie jest konkurencyjna, ponieważ wykorzystuje funkcje, które datują wyzwanie.

o@\

Wypróbuj online!

Jak to działa

o      Take the logical OR of its arguments.
 @     Reverse the argument order of the link to the left.
  \    Do a cumulative reduce, using the link to the left.

Rubin, 25 bajtów

->a{a.map{|x|x==0?a:a=x}}

To jest naprawdę naprawdę złe.

W szczególności fragment kodu x==0 ? a : (a=x).

Gdybym użył innej nazwy zmiennej dla a(poprzedniej niezerowej wartości) - powiedzmylet y- musiałbym zadeklarować ją poza map(ponieważ y=xmiałby tylko zakres wewnątrz tej pojedynczej mapiteracji). To zużyłoby cztery znaki więcej ( y=0;).

Ale jeśli aużyję nazwy zmiennej ... tak, zgadłeś. Właściwie zmieniam przypisanie do argumentu, który otrzymaliśmy jako dane wejściowe (tablica oryginalna).

mapnie obchodzi go to, ponieważ dba tylko o oryginalną wartość rzeczy, do której jest wywoływany, więc to faktycznie działa.

Haskell, 21 bajtów

a%0=a
a%b=b
scanl1(%)

(Anonimowa) funkcja, którą wykonujemy, znajduje się w ostatnim wierszu. Pierwsze dwa wiersze definiują funkcję pomocnika.

scanl1(%) [1,0,2,0,7,7,7,0,5,0,0,0,9]
[1,1,2,2,7,7,7,7,5,5,5,5,9]

Funkcja binarna %wyprowadza drugi argument, chyba że jest 0, w takim przypadku zamiast tego wyprowadza pierwszy argument. scanl1iteruje tę funkcję po liście danych wejściowych, generując wynik na każdym kroku.

J, 8 bajtów

{:@-.&0\

Jest to jednoargumentowa funkcja wywoływana w następujący sposób.

   f =: {:@-.&0\
   f 2 0 0 4 0 _1 0
2 2 2 4 4 _1 _1

Wyjaśnienie

{:@-.&0\
       \  Map over non-empty prefixes:
   -.      remove all occurrences
     &0    of the number 0 and
{:@        take the last element.

Sed, 8

/^0$/g
h

• /^0$/dopasowuje zero w linii - jeśli tak, to gkopiuje przestrzeń wstrzymania do przestrzeni wzorów
• h kopiuje przestrzeń wzoru do przestrzeni wstrzymania

Liczby całkowite są oddzielone znakiem nowej linii. na przykład:

$ printf -- "-1\n0\n5\n0\n0\n7\n" | sed -f zerocover.sed
-1
-1
5
5
5
7
$ 

JavaScript ES6, 19 bajtów

s=>s.map(i=>p=i||p)

Proste rozwiązanie pętli wejściu, przypisać pdo bieżącego elementu ilub p, jeśli ijest 0i wyprowadzać go.

Przykład uruchomienia (przypisanie funkcji anonimowej f):

>> f([1, 0, 2, 0, 7, 7, 7, 0, 5, 0, 0, 0, 9])
<< Array [1, 1, 2, 2, 7, 7, 7, 7, 5, 5, 5, 5, 9]

Siatkówka , 15 bajtów

+`(\S+) 0
$1 $1

Wypróbuj online.

Wielokrotnie zastępuje liczbę, po której następuje zero, dwukrotnością tej liczby, aż łańcuch przestanie się zmieniać.

Dyalog APL, 12 10 9 bajtów

(⊃0~⍨,⍨)\

Zainspirowany odpowiedzią J. Zgarba.

(⊃0~⍨,⍨)\      Monadic function:
        \      Cumulative reduce by
(⊃0~⍨,⍨)       the dyadic function:
     ,⍨           Arguments concatenated in reverse order
  0~⍨             With zeroes removed
 ⊃                Take the first element

Wypróbuj tutaj .

Pyth, 8 bajtów

t.u|YNQ0

Używa .u(redukcja skumulowana) przez |(Python or), z przypadkiem podstawowym 0.

Python 2, 29 bajtów

while 1:x=input()or x;print x

Pobiera dane wejściowe jako liczby podane po jednym w wierszu i wysyła dane w tym samym formacie. Kończy się z błędem po zakończeniu.

Używając zwarcia or, zmienna xjest aktualizowana na wejściu, chyba że wejście to 0 (co oznacza Falsey), w którym to przypadku pozostaje aktualną wartością. Następnie xjest drukowany. Zauważ, że ponieważ pierwsza wartość listy jest niezerowa, xnie jest obliczana po prawej stronie przed jej przypisaniem.

Matematyka 38 bajtów

Dopasowywanie wzorców wielokrotnie zastępuje ...a,0,...się...a,a...

#//.{b___,a_/;a!=0,0,e___}:>{b,a,a,e}&

Matlab, 41 46 bajtów

Jest to inspirowane moją pierwotną odpowiedzią , z następującymi różnicami:

1. Zamiast tego użyj indeksowania logicznego nonzeros.
2. Podwójna logiczna negacja zamiast porównywania 0.
3. Transpozycję można usunąć, ponieważ format wyjściowy jest elastyczny
4. Usuwanie zmiennej pośredniej.

Podziękowania dla Toma Carpentera za punkt 4 i za jego sugestię użycia programu zamiast funkcji; razem pozwoliły one na zmniejszenie o 5 bajtów.

x=input('');u=x(~~x);disp(u(cumsum(~~x)))

Przykład:

>> x=input('');u=x(~~x);disp(u(cumsum(~~x)))
[4 0 3 2 0 5 6 0]
     4     4     3     2     2     5     6     6

Gol> <> , 8 bajtów

IE;:Z~:N

Dane wejściowe i wyjściowe są liczbami oddzielonymi znakiem nowej linii.

Wyjaśnienie:

I         push next integer to stack
 E;       halt if EOF
   :Z~    remove top stack element if 0
      :N  print top stack element while also keeping it on the stack
          wrap around code implicitly

Wypróbuj online tutaj.

Japt, 8 7 bajtów

N£U=XªU

Dość proste. Pobiera dane wejściowe oddzielone przecinkami. Wypróbuj online!

Bez golfa i wyjaśnienia

N£    U=Xª U
NmXYZ{U=X||U

        // Implicit: N = input, U = first item
NmXYZ{  // Map each item X to:
U=Z||U  //  Set U to (X || U) and return.
        //  If X is non-zero, this sets U to X.
        //  Otherwise, this leaves U as the last non-zero we've encountered.
        // Implicit: output last expression

Niekonkurencyjna 4-bajtowa wersja: ( åkomenda i !funkcja -auto dodane po wyzwaniu)

Nå!ª

Wyjaśnienie:

Nå!ª
Nå!||
NåXY{Y||X}

        // Implicit: N = input, U = first item
NåXY{   // Cumulatively reduce N; take each item Y and prev value X,
Y||X}   //  and return Y if it is non-zero; return X otherwise.
        // Implicit: output last expression

Wypróbuj online!

Java, 78

int[]f(int[]a){for(int i=-1,b=i;++i<a.length;a[i]=b=a[i]==0?b:a[i]);return a;}

Tutaj po prostu śledzimy ostatnie niezerowe i wprowadzamy je tam, gdzie jest to właściwe. Wydaje się, że to oczywisty sposób.

Prolog (SWI) , 54 bajty

[X,0|T]+[X,X|Y]:-[X|T]+[X|Y].
[X|T]+[X|Y]:-T+Y.
[]+[].

Wypróbuj online!

Wyjaśnienie

Jestem bardzo zadowolony z tej odpowiedzi.

Najpierw mówimy, że pusta lista jest rozwiązaniem pustej listy:

[]+[].

Mówimy wtedy, że [X,X|Y]jest to rozwiązanie [X,0|T], jeśli poprzez usunięcie drugiego wpisu każdego z pozostałych rozwiązań.

[X,0|T]+[X,X|Y]:-[X|T]+[X|Y].

Na koniec mówimy, że wszystko, co zostało, jest ważne, jeśli zaczynają się od tej samej wartości, a reszta z dwóch list jest do siebie zgodna.

Jeśli to wyjaśnienie nie działa tutaj, kod jest tłumaczony na Haskell:

g(a:0:x)=a:g(a:x)
g(a:x)=a:g x
g x=x

Wypróbuj online!

GolfScript, 10 bajtów

~{1$or}*]`

Ten program pobiera dane wejściowe ze stdin w postaci literału tablicy GolfScript (np. [1 0 2 0]) I zapisuje dane wyjściowe na stdout w tym samym formacie (np [1 1 2 2].).

Wypróbuj online.

Funkcja (przyjmująca i zwracająca tablicę GolfScript) byłaby o trzy bajty dłuższa, ze względu na konieczność zawinięcia jej w blok i przypisania jej do symbolu:

{[{1$or}*]}:f

Oczywiście, jeśli policzone zostanie tylko ciało funkcji (tj. [{1$or}*]), Wtedy mogę zapisać jeden bajt w porównaniu do programu autonomicznego.

Minkolang 0,14 , 12 10 bajtów

$I?.nd?xdN

Wypróbuj tutaj. Dane wejściowe można podać jak w pytaniu, ale bez nawiasów .

Wyjaśnienie

$I      Push the length of the input on the stack.
  ?.    If this is 0, stop. Otherwise, continue.

nd        Take number from input and duplicate it.
  ?x      If this number is 0, dump the top of stack.
    dN    Duplicate the top of stack and output as number

Minkolang jest toroidalny, więc zapętla się do początku i kontynuuje, dopóki nie trafi w .i zatrzyma się.

𝔼𝕊𝕄𝕚𝕟, 7 znaków / 12 bajtów

ïⓜa=$⋎a

Try it here (Firefox only).

Wyjaśnienie

        // implicit: ï = input array
ïⓜ     // map over input
  a=    // set a to:
    $   // (if element is truthy (not 0)) element itself
     ⋎a // else whatever a was set to before
        // implicit output

O , 31 bajtów

[[I',T%T/]{n#}d]{n.{:V}{;V}?}d]

Pobiera to dane wejściowe oddzielone ,i wyświetla tę samą listę w [].

7,0,3,0,0,2,-50,0,0 => [7,7,3,3,3,2,-50,-50,-50]

Wyjaśnienie:

[] Umieść wynik w tablicy
 [I ', T% T /] {n #} d] Sformatuj dane wejściowe w tablicy liczb
                {n. {: V} {; V}?} d Wpisz zera (jak to działa poniżej)

17 bajtów

I~]{n.{:V}{;V}?}d

Pobiera dane wejściowe jako listę liczb oddzielonych spacjami za pomocą notacji postfiksowej i może obsługiwać tylko jednocyfrowe liczby szesnastkowe. Negatywy są postfiksowane _.

5 4 0 0 1 0 0 => 5 4 4 4 1 1 1
A 3 0 0 1 B 0 => 10 3 3 3 1 11 11
67* 0 0 78* 0 => 42 42 42 56 56
67*_ 4 3_ 0 0 => -42 4 -3 -3 -3

Wyjaśnienie:

I ~] Umieszcza dane wejściowe w tablicy liczb całkowitych
   {} d Dla każdej liczby na wejściu
    n. {; V} {: V}? Jeśli liczba wynosi 0, naciśnij V.
                  Jeśli nie, ustaw V na liczbę

R, 39 37 33 bajtów

function(x)zoo::na.locf(x*(x|NA))

Jest to nienazwana funkcja, która przyjmuje wektor i zwraca wektor. Wymaga zainstalowania zoopakietu. Pamiętaj, że nie wymaga zoodołączenia do przestrzeni nazw, ponieważ odwołujemy się do niej bezpośrednio.

Nazwą tej operacji w świecie statystyki jest imputacja LOCF, gdzie LOCF oznacza ostatnią obserwację przeprowadzoną. Aby to osiągnąć w R, możemy skorzystać na.locfz zoopakietu, który zastępuje NAwartości z ostatniej znanej nieprzestrzegania NAwartości. Musimy po prostu zastąpić zera na wejściu NAs.

Aby to zrobić, używamy x|NA, co będzie, TRUEkiedy x != 0i gdzie NAindziej. Jeśli pomnożymy to przez x, TRUEelementy zostaną zastąpione przez odpowiednie elementy xi NAs pozostają NA, zastępując w ten sposób wszystkie zera. To jest następnie przekazywane, zoo::na.locfco daje nam dokładnie to, czego chcemy.

Zaoszczędź 4 bajty dzięki flodel!

Rdza, 100 bajtów

fn f(i:&[i64])->Vec<i64>{let(mut o,mut l)=(i.to_vec(),0);
for x in&mut o{if *x==0{*x=l}else{l=*x}};o}

Natknąłem się na to wyzwanie, pomyślałem, że spróbuję w moim ulubionym języku. [T]::windows_mut()Najpierw spróbowałem użyć , zanim dowiesz się, że nie istnieje . I mogło być tak naprawdę dłużej. W każdym razie okazuje się, że gra w golfa w Rust jest bardzo brzydka i bardzo niekonkurencyjna (szczególnie z tymi wszystkimi cholernymi ezoterycznymi!) ¹

Nowa linia nie jest uwzględniona w bajtecount; jest tylko tam, więc nie musisz przewijać w bok. Nie zmienia to znaczenia kodu.

Nie golfowany:

fn cover_zeroes(input: &[i64]) -> Vec<i64> {
    let mut output = input.to_vec();
    let mut last_nonzero = 0;
    for item in &mut output {
        if *item == 0 {
            *item = last_nonzero;
        }
        else {
            last_nonzero = *item;
        }
    }
    output
}

_{^{[1] Przynajmniej nie jest tak zły jak Java.}}

Droga Mleczna 1.2.1 , 33 bajtów

:y;=<:&{~<?{0b_^;:3≤_;}1-}^<Ω!

Zakłada się, że lista liczb całkowitych znajduje się wyłącznie na stosie.

Wyjaśnienie

:    : :           :              # duplicate the TOS
 y                                # push the length of the TOS
  ;               ;    ;          # swap the TOS and STOS
   =                              # dump a list to the stack
    < <    <                 <    # rotate the stack leftward
        &{~                }      # while loop
            ?{  _     _ }         # if-else statements
              0     3    1        # push an integer
               b                  # == on the TOS and STOS
                 ^          ^     # pop the TOS without output
                     ≤            # rotate the top N stack elements leftward
                          -       # subtract the TOS from the STOS
                              Ω   # push a list made of the top N stack elements
                               !  # output the TOS

Julia, 33 bajty

g(x,a=0)=[(i!=0&&(a=i);a)for i=x]

Ta funkcja gprzyjmuje tablicę i zwraca tablicę. Zaczynamy tymczasową zmienną aod 0. Dla każdego elementu idanych wejściowych, jeśli inie jest 0, to przypisujemy ado i. Jeśli iwynosi 0, anie zmienia się w tej iteracji. Używamy ajako wartości w tej pozycji w tablicy wyjściowej.

Perl 6 , 21 bajtów

*.map: {$_=($^a||$_)}

stosowanie:

# store the Whatever lambda as a subroutine
# just so that we don't have to repeat it
my &code = *.map: {$_=($^a||$_)}

say code [1, 0, 2, 0, 7, 7, 7, 0, 5, 0, 0, 0, 9];
# (1 1 2 2 7 7 7 7 5 5 5 5 9)

say [-1, 0, 5, 0, 0, -7].&code;
# (-1 -1 5 5 5 -7)

say ([1, 0, 0, 0, 0, 0],[-1, 0, 5, 0, 0, -7]).map: &code;
# ((1 1 1 1 1 1) (-1 -1 5 5 5 -7))

R, 36 bajtów

function(x)x[cummax(seq(a=x)*(!!x))]

Zobaczmy, jak to działa przy użyciu x=

c(1, 0, 2, 0, 7, 7, 7, 0, 5, 0, 0, 0, 9)

jako przykład. Tutaj !!xbędzie logiczny wektor (prawda / fałsz):

c(T, F, T, F, T, T, T, F, T, F, F, F, T)

Ponadto, seq(a=x)daje wektor wskaźników, o ile x:

c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)

Mnożymy oba, dając:

c(1, 0, 3, 0, 5, 6, 7, 0, 9, 0, 0, 0, 13)

Przyjmujemy skumulowane maksimum:

c(1, 1, 3, 3, 5, 6, 7, 7, 9, 9, 9, 9, 13)

Wreszcie używamy tego ostatniego wektora jako wskaźników do wyodrębnienia x:

c(1, 1, 2, 2, 7, 7, 7, 7, 5, 5, 5, 5, 9)

CJam, 11 bajtów

q~{1$e|}*]p

Wypróbuj online.

Jak to działa

q~             Read and evaluate all input.
  {    }*      Fold; for each element but the first:
   1$e|          Copy the previous element and take their logical OR.
         ]p   Wrap all results in an array and print it.

PowerShell, 32 bajty

param($x)$x|%{($t=($_,$t)[!$_])}

$x|%{...}wykonuje blok skryptu dla każdego elementu w $x. ($_,$t)jest tablicą bieżącego elementu i $t, i [!$_]środków, które korzystają !$_z indeksem w tablicy. Indeks będzie miał wartość 0(false) dla niezerowych elementów i 1(true), gdy bieżący element będzie wynosił zero, więc $tbędzie to albo element bieżący, albo $t. Nawiasy otaczają wyrażenie przypisania, więc jego wartość jest emitowana. Bez nawiasów byłoby to po prostu „ciche” zadanie $t.

Japt , 3 bajty

å!ª

Spróbuj

å!ª     :Implicit input of array
å       :Cumulatively reduce
 !      :Flip the arguments
  ª     :Logical OR