ให้รายการ จำกัด บางรายการกลับรายการของคำนำหน้าทั้งหมดรวมถึงรายการที่ว่างในลำดับความยาวของพวกเขา

(โดยทั่วไปจะใช้ฟังก์ชัน Haskell inits)

รายละเอียด

• รายการอินพุตมีตัวเลข (หรือประเภทอื่นหากสะดวกกว่า)
• การส่งออกจะต้องเป็นรายชื่อของรายการ
• การส่งสามารถ แต่ไม่จำเป็นต้องเป็นฟังก์ชันสามารถใช้I / O เริ่มต้นใด ๆได้
• มีเป็นคำตอบ CWสำหรับทุกการแก้ปัญหาจิ๊บจ๊อย

ตัวอย่าง

[] -> [[]]
[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 ไบต์

แก้ไข: สั้นลงหนึ่งไบต์ด้วยการสแกนที่แตกต่างอย่างสิ้นเชิง

ฟังก์ชั่นที่ไม่ระบุชื่อเต้นเล็กน้อยนำเข้าเล็กน้อย

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

ลองออนไลน์!

• ใช้สำหรับย่อ=<<(scanr(\_->init)=<<id) l = scanr(\_->init) l l
• สแกนรายการจากขวาไปซ้ายรวบรวมผลกลางที่มีฟังก์ชั่นl\_->init
• ฟังก์ชั่นที่ไม่สนใจองค์ประกอบที่ผ่านการสแกน (พวกเขากำลังใช้เพียงเพื่อให้ได้ความยาวรวมที่เหมาะสมเพื่อให้ได้ผลลัพธ์ที่เก็บรวบรวมได้) ดังนั้นจริงๆ iterates ใช้เป็นค่าเริ่มต้นของการสแกนซึ่งยังเป็นinitl

brainfuck , 21 12 ไบต์

-9 ไบต์ขอบคุณ Arnauld ที่แนะนำตัวคั่นÿแทนการขึ้นบรรทัดใหม่

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

ลองออนไลน์!

ใช้ไบต์ผ่าน STDIN โดยไม่มีไบต์ว่างและพิมพ์ชุดของส่วนนำหน้าคั่นด้วยÿอักขระด้วยÿอักขระนำหน้า ตัวอย่างเช่นสำหรับการป้อนข้อมูลผลลัพธ์คือPrefixesÿÿPÿPrÿPreÿPrefÿPrefiÿPrefixÿPrefixeÿPrefixes

สำหรับการอ่านนี่เป็นรุ่นที่มีการขึ้นบรรทัดใหม่แทน

คำอธิบาย:

-              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 ไบต์

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

ลองออนไลน์!

อย่างไร?

+--- 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 สำหรับรายการที่ไม่สำคัญทั้งหมด

ทำความสะอาด , 19 ไบต์

รุ่น Haskell ทำงานใน Clean ด้วยเช่นกัน

import StdLib
inits

ลองออนไลน์!

Haskell , 22 ไบต์

import Data.List
inits

ลองออนไลน์!

Prolog (SWI) 6 ไบต์

prefix

ลองออนไลน์!

เยลลี่ 3 ไบต์

ṭṖƤ

ลองออนไลน์!

มันทำงานอย่างไร

ṭṖƤ  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 ไบต์

²£¯Y

ลองออนไลน์!

คำอธิบาย:

²       :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 ไบต์

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

ลองออนไลน์!

อธิบาย:

ใน Perl 6 คุณสามารถตัดโอเปอเรเตอร์ในวงเล็บเหลี่ยมเป็นอีกวิธีหนึ่งในการเขียนการลดรายการ [+] @arrayผลตอบแทนรวมขององค์ประกอบในการ@array, [*] @arrayผลตอบแทนสินค้า ฯลฯ นอกจากนี้คุณยังสามารถนำผู้ประกอบการด้วยเครื่องหมายทับขวาเพื่อให้ลดลง "สามเหลี่ยม" ซึ่งบางภาษาเรียกว่า "สแกน". ดังนั้น[\+] @arrayส่งคืนรายการที่ประกอบด้วยองค์ประกอบแรกของ@arrayจากนั้นผลรวมของสององค์ประกอบแรกจากนั้นรวมผลรวมของสามองค์ประกอบแรก ฯลฯ

นี่[\,] @_คือการลดสามเหลี่ยมมากกว่าอาร์เรย์การป้อนข้อมูลที่ใช้ประกอบรายการก่อสร้าง@_ ,ดังนั้นจึงประเมินรายการของรายการ: องค์ประกอบแรกของ@_สององค์ประกอบแรกของ@_ฯลฯ ที่เกือบจะเป็นสิ่งที่จำเป็น แต่ปัญหาเรียกร้องรายการที่ว่างเปล่าก่อน ดังนั้นองค์ประกอบแรกของรายการกลับมาเป็นรายการที่ว่างเปล่าที่แท้จริงแล้วลดลงมากกว่ารายการป้อนข้อมูลจะถูกทำให้เป็นส่วนที่เหลือของรายการกลับมาด้วย(),|

Python 2 , 32 ไบต์

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

ลองออนไลน์!

R , 40 39 ไบต์

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

ลองออนไลน์!

-1 ไบต์ต้องขอบคุณdigEmAll

ผลลัพธ์ของlistประเภทR นั้นค่อนข้างแปลก มันใช้การจัดทำดัชนีตามลำดับดังนั้นเช่นเอาท์พุทสำหรับ

list(1,2) คือ

[[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

การป้อนข้อมูลที่เป็นเวกเตอร์แทนจะช่วยให้รูปแบบการออก neater แม้แล้วปัจจัยการผลิตไม่ได้ในทางเทคนิคlists

JavaScript ขนาด 36 ไบต์

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

ลองออนไลน์!

Mathematica, 22 21 ไบต์

^{-1 ไบต์ต้องขอบคุณMisha Lavrov !}

{}~FoldList@Append~#&

ฟังก์ชั่นบริสุทธิ์ รับรายการเป็นอินพุตและส่งคืนรายการเป็นเอาต์พุต ฉันเชื่อว่านี่เป็นทางออกที่สั้นที่สุด

Husk , 2 ไบต์

Θḣ

รับḣeads ทั้งหมดแล้ว prepends Θ(ในกรณีนี้[]):

ลองออนไลน์!

^{(ต้องการคำอธิบายประกอบประเภทสำหรับรายการว่าง: ลองออนไลน์! )}

J , 5 ไบต์

a:,<\

ลองออนไลน์!

PowerShellขนาด 65 ไบต์

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

ลองออนไลน์!

PowerShell เป็นประโยชน์หนึบรายชื่อของรายการเมื่อเริ่มต้นWrite-Outputเกิดขึ้นที่เสร็จสิ้นโปรแกรมเพื่อให้คุณได้รับหนึ่งรายการต่อบรรทัด แทคที่ a -join','เพื่อดูรายการของรายการที่ดีขึ้นโดยแปลงรายการด้านในเป็นสตริง

(Ab) ใช้ความจริงที่ว่าพยายามส่งออกอาเรย์ที่ว่างเปล่า (เช่น@()) ส่งผลให้ไม่มีเอาต์พุตดังนั้นอินพุตอาเรย์ที่ว่างเปล่าก็มีเพียงแค่''เป็นเอาท์พุทเนื่องจาก$a[0..$_]จะไม่มีผลอะไรเลย มันจะส่งข้อความผิดพลาดที่น่าตื่นเต้นออกไป

K (ngn / k) , 8 ไบต์

,\(,!0),

ลองออนไลน์!

Lisp ทั่วไป , 39 ไบต์

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

ลองออนไลน์!

คำอธิบาย

(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 ไบต์

ฉันได้คำตอบที่คล้ายกันสองข้อนี้มาจากความยาวเดียวกัน พวกเขาทั้งสองใช้ลำดับทั่วไปsเป็นพารามิเตอร์

วิธีแก้ปัญหาแรก:

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

ลองออนไลน์!

Seq.takeใช้nองค์ประกอบแรกของลำดับ Seq.initสร้างลำดับใหม่ที่มีการนับ (ในกรณีนี้) ความยาวของลำดับsบวก 1 และสำหรับองค์ประกอบในแต่ละลำดับเตะแรกองค์ประกอบในns

ทางออกที่สอง:

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

คล้ายกับก่อนที่จะยกเว้นมันจะสร้างลำดับจาก 0 sถึงความยาวของ จากนั้นใช้องค์ประกอบจำนวนsนั้น

ลองออนไลน์ด้วยเช่นกัน!

MATL, 15 12 ไบต์

บันทึก 3 ไบต์ด้วย @Giuseppe

vin:"G@:)]Xh

ลองมันที่MATL ออนไลน์

เนื่องจากวิธีที่ MATL แสดงผลลัพธ์คุณจะไม่สามารถเห็นอาร์เรย์ว่างในเซลล์อาร์เรย์ได้อย่างชัดเจน นี่คือรุ่นที่แสดงผลลัพธ์เล็กน้อยอย่างชัดเจน

คำอธิบาย

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

SWI PROLOG 22 ไบต์

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

ถ่าน 6 ไบต์

Ｅθ…θκθ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

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

เป็นไปได้ที่ค่า 1 ไบต์เพื่อขอให้ Charcoal พิมพ์n+1อาร์เรย์องค์ประกอบซึ่งรวมถึงอินพุตเป็นองค์ประกอบสุดท้ายของมัน แต่ผลลัพธ์นั้นเหมือนกันแม้ว่าตำแหน่งเคอร์เซอร์จะแตกต่างกันหากคุณไปพิมพ์สิ่งอื่น

05AB1E , 3 ไบต์

η¯š

คำอธิบาย:

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

ลองออนไลน์!

RAD , 7 ไบต์

(⊂⍬),,\

ลองออนไลน์!

สิ่งนี้ยังทำงานใน Dyalog APL เป็นฟังก์ชัน

อย่างไร?

สิ่งนี้ใช้ได้เหมือนกันทั้ง APL และ RAD เนื่องจากมีความสัมพันธ์ใกล้ชิด

• (⊂⍬) อาร์เรย์ที่ว่างเปล่า
• , ผนวกกับ
• ,\ คำนำหน้า (ซึ่งไม่รวมอาร์เรย์ว่าง)

Groovyขนาด 37 ไบต์

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

ลองออนไลน์!

Japt , 5 ไบต์

Êò@¯Y

ลองออนไลน์!

brainfuck , 43 ไบต์

ใช้รายการอักขระที่ไม่ใช่ null เป็นอินพุตและส่งคืนคำนำหน้าทั้งหมดคั่นด้วยบรรทัดใหม่ ต้องใช้สองครั้งไม่มีที่สิ้นสุดหรือเทปห่อ

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

ลองออนไลน์!

C # (Visual C # Interactive Compiler) , 39 ไบต์

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

ลองออนไลน์!

F # (โมโน) 45 ไบต์

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

ลองออนไลน์!

ฉันไม่แน่ใจว่าทั้งหมดนี้ถูกต้องหรือไม่ แต่ดูเหมือนว่าจะเป็นไปตามไวยากรณ์ "lambda แบบไม่ระบุชื่อ" แบบเดียวกับที่ฉันใช้ในภาษาอื่นหลายภาษา

Java 8+ , 86 77 ไบต์

^{-9 ไบต์ขอบคุณKevin Cruijssen (กำจัดการนำเข้า)!}

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

ลองออนไลน์!

ทางเลือก 65 ไบต์

ข้อมูลต่อไปนี้จะพิมพ์ผลลัพธ์ไปยังstdout (เนื่องจากOlivier Grégoire ):

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

ลองออนไลน์

Brachylogขนาด 9 ไบต์

a₀ᶠ~b.hĖ∧

ลองออนไลน์!

คำอธิบาย

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 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

->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
  }
}