いくつかの有限リストが与えられた場合、空のリストを含むすべてのプレフィックスのリストを長さの昇順で返します。

（基本的に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バイト

編集：しかし、完全に異なるスキャンで1バイト短くなります。

些細なインポートをわずかに上回る匿名関数。

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

オンラインでお試しください！

• =<<略語に使用し(scanr(\_->init)=<<id) l = scanr(\_->init) l lます。
• リストlを右から左にスキャンし、関数で中間結果を収集します\_->init。
• その関数は、スキャンされた要素を無視します（収集された結果の正しい全長を取得するためにのみ使用されます）ので、実際initにはスキャンの初期値（これも）に適用を繰り返しlます。

brainfuck、21 12バイト

Arnauld ÿが改行ではなく区切り文字を提案してくれたおかげで-9バイト

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

オンラインでお試しください！

ヌルバイトなしで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

オンラインでお試しください！

プロローグ（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.

ジャプト、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、最初の2つの要素の合計、最初の3つの要素の合計などで構成されるリストを返します。

これ[\,] @_は@_、リスト構築演算子を使用した入力配列の三角縮約,です。したがって、リストのリストに評価されます：の最初の要素@_、の最初の2つの要素@_など。それはほとんど必要なものですが、問題は最初に単一の空のリストを必要とします。したがって、戻りリストの最初の要素はリテラルの空のリスト(),であり、入力リストに対する縮小は、を使用して戻りリストの残りに平坦化され|ます。

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の

Rの出力 list型少し奇妙です。順次インデックスを使用するため、たとえば、

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

代わりに入力をベクトルとして取得すると、入力は技術的には適切ではありませんが、よりきれいな出力形式になりますlist。

JavaScript、36バイト

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

オンラインでお試しください！

Mathematica、22 21バイト

^{ミーシャ・ラブロフのおかげで-1バイト！}

{}~FoldList@Append~#&

純粋な機能。リストを入力として受け取り、リストのリストを出力として返します。これが最短の解決策だと思います。

殻、2バイト

Θḣ

すべてのḣeadを取得してから先頭に追加しますΘ（この場合[]）。

オンラインでお試しください！

^{（空のリストに注釈を入力する必要があります：オンラインで試してください！）}

J、5バイト

a:,<\

オンラインでお試しください！

PowerShell、65バイト

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

オンラインでお試しください！

PowerShellの親切アンロールリスト・オブ・リストのデフォルトは、Write-Outputあなたが1行に1つのアイテムを取得するので、プログラムの完了時に起こります。にタック-join','内部のリストを文字列に変換することにより、リストのリストをよりよく見るためにします。

（ab）空の配列（例：）を出力しようとすると出力@()がなくなるという事実を使用します。したがって、空の配列入力''は出力と同じになります$a[0..$_]。また、いくつかの壮大なエラーメッセージがスローされます。

K（ngn / k）、8バイト

,\(,!0),

オンラインでお試しください！

Common 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バイト

私は実際に、これについて2つの非常によく似た答えを持っています。どちらも同じ長さです。両方とも一般的なシーケンスを取りますsパラメーターとしてをます。

最初の解決策：

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

オンラインでお試しください！

Seq.takenシーケンスの最初の要素を取ります。Seq.initシーケンスの長さのカウント（この場合）にs1を加えた新しいシーケンスを作成し、シーケンスの各要素に対して、最初のn要素を取得しますsます。

2番目の解決策：

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

前と同様ですが、0からの長さまでのシーケンスを作成しますs。次に、からその数の要素を取得しsます。

これもオンラインでお試しください！

MATL、15 12バイト

@Giuseppeのおかげで3バイト節約

vin:"G@:)]Xh

MATL Onlineでお試しください。

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バイトのコストでn+1、最後の要素として入力を含む-element配列を印刷するようにCharcoalに依頼することは可能ですが、出力は同じですが、次に何かを印刷し続けるとカーソル位置が異なります。

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バイト

非ヌル文字のリストを入力として受け取り、改行で区切られたすべてのプレフィックスを返します。二重無限またはラッピングテープが必要です。

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

オンラインでお試しください！

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]

オンラインでお試しください！

これが有効かどうかは定かではありませんが、他のいくつかの言語で使用されていると思われるのと同じ「匿名ラムダ」構文に従っているようです。

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に出力します（OlivierGré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)

ルビー、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
  }
}