テーブル[]出力カーディナリティ

Question

通常、Table[ ]コマンドは、イテレータと同じカーディナリティを持つリストを返します。

Table[i, {i,4}] 
(* 
->{1,2,3,4} 
*) 

それはイテレータ

Table[Sequence @@ ConstantArray[1, i], {i, 2}] 
(* 
->{1,1,1} 
*) 

より大きなカーディナリティとリストを返すことが可能である示すことは容易である。しかし...LESSでリストを返すための方法があります。カーディナリティはイテレータよりも大きいですか？

Answer 1

簡単な例：

Table[Sequence @@ ConstantArray[1, i - 1], {i, 2}] 
Out[1] = {1} 

この必要性は常に小さいカーディナリティでリストを返しません。たとえば、{i,3}は等価を返し、{i,4}はさらに多くを返します。

あるいはsillier例は

Table[Sequence @@ {}, {i, 2}] 

だろうが、それはカウントしている場合は、私にはわかりません。

---

ます。また、これは動作するはずPiecewise

Table内部

Table[Sequence @@ Piecewise[{ 
    {ConstantArray[1, i], i < 3}, 
    {ConstantArray[2, i], 3 <= i < 5}, 
    {{}, i >= 5}}], 
{i, 20}] 

Out[2] = {1, 1, 1, 2, 2, 2, 2, 2, 2, 2} 

Answer 2

を使用することができます。

Table[Sequence @@ {}, {i, 10}] 

Answer 3

私は今、あなたの意図を理解していると仮定すると、私は「上の利点が表示されません「フライ」除去をTable内で実行する。一つは、のようなもので、それを達成することができます：

Table[If[EvenQ@i, i, ##&[]], {i, 25}] 

が、Joinを使用する方が速い：

Join @@ Table[If[EvenQ@i, {i}, {}], {i, 25}] 

またはDeleteCases：

DeleteCases[Table[If[EvenQ@i, i], {i, 25}], , 1] 

と、この単純なケースでは

、 Selectは以上です2倍の速さ：

Table[i, {i, 25}] ~Select~ EvenQ 

メモリ使用の問題がある場合は、Sequenceを使用する最初の方法が先に出ますが、Joinメソッドがそれほど遅れているわけではありません。