Diberikan daftar terbatas, kembalikan daftar semua awalannya, termasuk daftar kosong, dalam urutan panjangnya.

(Pada dasarnya menerapkan fungsi Haskell inits.)

Detail

• Daftar input berisi angka (atau tipe lain jika lebih nyaman).
• Output harus berupa daftar daftar .
• Pengajuan dapat, tetapi tidak harus berupa fungsi, I / O standar apa pun dapat digunakan.
• Ada jawaban CW untuk semua solusi sepele .

Contoh

[] -> [[]]
[42] -> [[],[42]]
[1,2,3,4] -> [[], [1], [1,2], [1,2,3], [1,2,3,4]]
[4,3,2,1] -> [[], [4], [4,3], [4,3,2], [4,3,2,1]]

Haskell , 20 byte

Sunting: Namun satu byte lebih pendek dengan pemindaian yang sama sekali berbeda.

Fungsi anonim sedikit mengalahkan impor sepele.

scanr(\_->init)=<<id

Cobalah online!

• Penggunaan =<<untuk singkatan (scanr(\_->init)=<<id) l = scanr(\_->init) l l.
• Memindai daftar ldari kanan ke kiri, mengumpulkan hasil antara dengan fungsi \_->init.
• Fungsi itu mengabaikan elemen yang dipindai melalui (mereka hanya digunakan untuk mendapatkan panjang total yang tepat untuk hasil yang dikumpulkan), jadi benar-benar mengulangi menerapkan initke nilai awal pemindaian, yang juga l.

brainfuck , 21 12 byte

-9 byte terima kasih kepada Arnauld yang menyarankan pemisah, ÿbukan baris baru

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

Cobalah online!

Membawa byte melalui STDIN tanpa byte nol dan mencetak serangkaian awalan yang dipisahkan oleh ÿkarakter dengan ÿkarakter utama . Misalnya, untuk input Prefixes, outputnya adalah ÿÿPÿPrÿPreÿPrefÿPrefiÿPrefixÿPrefixeÿPrefixes.

Untuk keterbacaan, inilah versi dengan baris baru .

Penjelasan:

-              Create a ÿ character in cell 0
 [        ,]   While input, starting with the ÿ
  [<]>           Go to the start of the string
      [.>]       Print the string
          ,      Append the input to the end of the string

JavaScript (ES6), 33 byte

a=>[b=[],...a.map(n=>b=[...b,n])]

Cobalah online!

Bagaimana?

+--- a = input array
|
|       +--- initialize b to an empty array and include it as the first entry
|       |    of the output (whatever the input is)
|       |
|       |          +--- for each value n in a[]:
|       |          |
|       |          |        +--- append n to b[] and include this new array in
|       |          |        |    the final output
|       |          |        |
a => [b = [], ...a.map(n => b = [...b, n])]
               |                  |
               +---------+--------+
                         |
      spread syntax: expands all elements of
      the child array within the parent array

CW untuk semua entri sepele

Bersih , 19 byte

Versi Haskell juga berfungsi di Bersihkan.

import StdLib
inits

Cobalah online!

Haskell , 22 byte

import Data.List
inits

Cobalah online!

Prolog (SWI) , 6 byte

prefix

Cobalah online!

Jelly , 3 byte

ṭṖƤ

Cobalah online!

Bagaimana itu bekerja

ṭṖƤ  Main link. Argument: A

  Ƥ  Map the link to the left over all non-empty(!) prefixes of A.
 Ṗ       Pop; remove the last element.
ṭ    Tack; append A to the resulting list.

Japt , 4 byte

²£¯Y

Cobalah online!

Penjelasan:

²       :Add an arbitrary extra item to the end of the array
 £      :For each item in the new array:
  ¯Y    : Get an array of the items that are before it

Perl 6 , 13 byte

{(),|[\,] @_}

Cobalah online!

Untuk menjelaskan:

Dalam Perl 6 Anda dapat membungkus operator dalam tanda kurung siku sebagai cara alternatif untuk menulis pengurangan daftar. [+] @arraymengembalikan jumlah elemen dalam @array, [*] @arraymengembalikan produk, dll. Anda juga dapat mendahului operator dengan garis miring terbalik untuk membuat pengurangan "segitiga", yang oleh beberapa bahasa disebut "pemindaian." Jadi [\+] @arraymengembalikan daftar yang terdiri dari elemen pertama@array , lalu jumlah dari dua elemen pertama, lalu jumlah dari tiga elemen pertama, dll.

Berikut [\,] @_ini adalah pengurangan segitiga atas array input @_menggunakan operator daftar konstruksi ,. Jadi itu mengevaluasi ke daftar daftar: elemen pertama @_, dua elemen pertama @_, dll. Itu hampir apa yang dibutuhkan, tetapi masalahnya memerlukan satu daftar kosong terlebih dahulu. Jadi elemen pertama dari daftar kembali adalah daftar kosong literal (),, kemudian pengurangan atas daftar input diratakan ke dalam sisa daftar kembali dengan |.

Python 2 , 32 byte

f=lambda l:(l and f(l[:-1]))+[l]

Cobalah online!

R , 40 39 byte

function(L)lapply(0:length(L),head,x=L)

Cobalah online!

-1 byte terima kasih untuk digEmAll

Output dari listtipe R agak aneh; ia menggunakan pengindeksan berurutan, jadi misalnya, output untuk

list(1,2) aku s

[[1]]                     # first list element
list()

[[2]]                     # second list element
[[2]][[1]]                # first element of second list element
[1] 1


[[3]]                     # third list element
[[3]][[1]]                # first element of third list element
[1] 1

[[3]][[2]]                # etc.
[1] 2

Mengambil input sebagai vektor sebagai gantinya memberikan format output yang lebih rapi, meskipun kemudian inputnya tidak secara teknis list.

JavaScript, 36 byte

a=>[...a,0].map((x,y)=>a.slice(0,y))

Cobalah online!

Mathematica, 22 21 byte

^{-1 byte terima kasih kepada Misha Lavrov !}

{}~FoldList@Append~#&

Fungsi murni. Mengambil daftar sebagai input dan mengembalikan daftar daftar sebagai output. Saya percaya ini adalah solusi sesingkat mungkin.

Sekam , 2 byte

Θḣ

Dapatkan semua ḣeads dan kemudian tambahkan Θ(dalam hal ini []):

Cobalah online!

^{(perlu mengetik anotasi untuk daftar kosong: Coba online! )}

J , 5 byte

a:,<\

Cobalah online!

PowerShell , 65 byte

param($a)'';$x=,0*($y=$a.count);0..--$y|%{$x[$_]=@($a[0..$_])};$x

Cobalah online!

PowerShell sangat membantu membuka daftar-daftar ketika standar Write-Outputterjadi pada penyelesaian program, sehingga Anda mendapatkan satu item per baris. Taktik a-join',' untuk melihat daftar daftar yang lebih baik, dengan mengubah daftar dalam menjadi string.

(Ab) menggunakan fakta bahwa mencoba untuk mengeluarkan array kosong (misalnya, @()) menghasilkan tidak ada output, sehingga input array kosong hanya memiliki ''sebagai output, karena $a[0..$_]akan menghasilkan apa-apa. Ini juga akan membuang beberapa pesan kesalahan yang spektakuler.

K (ngn / k) , 8 byte

,\(,!0),

Cobalah online!

Gangguan Umum , 39 byte

(defun f(l)`(,@(if l(f(butlast l))),l))

Cobalah online!

Penjelasan

(defun f(l)                           )  ; Define a function f
           `(                        )   ; With the list (essentially capable of interpolation), containing:
             ,@                          ;     The value of, flattened to one level
               (if l              )      ;         If l is not the empty list (which is the representation of nil, i.e. the only falsy value)
                    (f(butlast l))       ;         Recurse with all of l but the tail
                                   ,l    ;     The value of l

F #, 53 byte

Saya sebenarnya punya dua jawaban yang hampir mirip untuk ini, keduanya sama panjangnya. Keduanya mengambil urutan generiks sebagai parameter.

Solusi pertama:

let i s=Seq.init(Seq.length s+1)(fun n->Seq.take n s)

Cobalah online!

Seq.takemengambil nelemen pertama dari urutan. Seq.initmembuat urutan baru dengan hitungan (dalam hal ini) dari panjang urutan sditambah 1, dan untuk setiap elemen dalam urutan mengambil nelemen pertama s.

Solusi kedua:

let i s=Seq.map(fun n->Seq.take n s){0..Seq.length s}

Mirip dengan sebelumnya, kecuali ia menciptakan urutan dari 0 hingga panjang s. Kemudian ambil sejumlah elemen dari s.

Coba ini juga online!

MATL, 15 12 byte

3 byte disimpan berkat @Giuseppe

vin:"G@:)]Xh

Cobalah di MATL Online .

Karena cara MATL menampilkan output, Anda tidak bisa secara eksplisit melihat array kosong dalam array sel. Berikut adalah versi yang menunjukkan output sedikit lebih eksplisit.

Penjelasan

v       # Vertically concatenate the (empty) stack to create the array []
i       # Explicitly grab the input
n       # Compute the number of elements in the input (N)
:       # Create an array from [1, ..., N]
"       # Loop through this array
  G     # For each of these numbers, M
  @:    # Create an array from [1, ..., M]
  )     # Use this to index into the initial array
]       # End of the for loop
Xh      # Concatenate the entire stack into a cell array

PROLOG SWI 22 byte

i(X,Y):-append(X,_,Y).

Arang , 6 byte

Ｅθ…θκθ

Cobalah online!Tautan adalah untuk mengucapkan versi kode. Penjelasan:

 θ      Input array
Ｅ       Map over elements
   θ    Input array
  …     Moulded to length
    κ   Current loop index
        Implicitly print each array double-spaced
     θ  Input array
        Implicitly print

Mungkin dengan biaya 1 byte untuk meminta Charcoal untuk mencetak n+1array-elemen yang memasukkan input sebagai elemen terakhir, tetapi outputnya sama, walaupun posisi kursor akan berbeda jika Anda kemudian mencetak sesuatu yang lain.

05AB1E , 3 byte

η¯š

Penjelasan:

η    Prefixes
  š  Prepend
 ¯   Global array (empty by default)

Cobalah online!

RAD , 7 byte

(⊂⍬),,\

Cobalah online!

Ini juga berfungsi di Dyalog APL sebagai fungsi.

Bagaimana?

Ini berfungsi sama untuk APL dan RAD, mengingat hubungan dekatnya.

• (⊂⍬) array kosong
• , ditambahkan ke
• ,\ awalan (yang mengecualikan array kosong.)

Groovy , 37 byte

{x->(0..x.size()).collect{x[0..<it]}}

Cobalah online!

Japt , 5 byte

Êò@¯Y

Cobalah online!

brainfuck , 43 byte

Ambil daftar karakter yang bukan nol sebagai input dan kembalikan semua awalan yang dipisahkan oleh baris baru. Membutuhkan pita tak terbatas atau pembungkus ganda.

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

Cobalah online!

C # (Visual C # Interactive Compiler) , 39 byte

x=>x.Select((_,i)=>x.Take(i)).Append(x)

Cobalah online!

F # (Mono) , 45 byte

fun x->List.mapi(fun i y->List.take i x)x@[x]

Cobalah online!

Saya tidak sepenuhnya yakin apakah ini valid, tetapi sepertinya ini mengikuti sintaksis "lambda anonim" yang sama yang sepertinya saya gunakan dalam beberapa bahasa lain.

Java 8+ , 86 77 byte

^{-9 byte terima kasih kepada Kevin Cruijssen (singkirkan impor)!}

x->java.util.stream.IntStream.range(0,x.size()+1).mapToObj(t->x.subList(0,t))

Cobalah online!

Alternatif, 65 byte

Berikut ini akan mencetak hasilnya ke stdout (karena Olivier Grégoire ):

x->{for(int i=0;i<=x.size();)System.out.print(x.subList(0,i++));}

Cobalah online

Brachylog , 9 byte

a₀ᶠ~b.hĖ∧

Cobalah online!

Penjelasan

a₀ᶠ           Find all prefixes of the input
   ~b         Add an element at the beginning of that list of prefixes
      hĖ      This element is the empty list
     .  ∧     (the list with the additional empty list is the output)

Ruby , 31 29 byte

->a{[a*i=0]+a.map{a[0,i+=1]}}

Cobalah online!

Penjelasan:

->a{             # take array input a
  [a*i=0]+       # set i to 0 and add whatever comes next to [[]] (a*0 == [])
  a.map{         # for every element in a (basically do a.length times)
    a[0,i+=1]  # increment i and return the first i-1 elements of a to map
  }
}