タスク

入力が整数のリスト/配列Xであり、出力が整数Yのセットのリストであるプログラムまたは関数を記述します。これにより、各セットY [ i ]の各要素eに対して、X [ e ] = i、Yのセットの要素の総数がXの要素の数と等しくなるようにします。

（これは基本的にハッシュテーブル/辞書を逆にするのと同じ操作ですが、代わりに配列に適用されます。）

例

これらの例では1ベースのインデックス付けを想定していますが、必要に応じて0ベースのインデックス付けを代わりに使用できます。

X             Y
[4]           [{},{},{},{1}]
[1,2,3]       [{1},{2},{3}]
[2,2,2]       [{},{1,2,3}]
[5,5,6,6]     [{},{},{},{},{1,2},{3,4}]
[6,6,5,5]     [{},{},{},{},{3,4},{1,2}]

明確化

• 必要に応じて、セットをリストとして表すことができます。その場合、要素の順序は重要ではありませんが、要素を繰り返すことはできません。
• 妥当な明確なI / O形式を使用できます。たとえば、セットの要素をスペースで区切り、セット自体を改行で区切ることができます。
• Yは有限長で、少なくともXのすべての要素を配列インデックスとして持つのに十分な長さでなければなりません。ただし、Xの最大要素よりも長くなる場合があります（余分な要素は空のセットになります）。
• Xの要素はすべて有効な配列インデックスになります。つまり、0ベースのインデックスを使用する場合は負でない整数、1ベースのインデックスを使用する場合は正の整数になります。

勝利条件

コードゴルフの挑戦、短い方が良いです。

MATL、8バイト

tn:IXQ&D

入力は、;セパレータとしての列ベクトルです（例：）[2;2;2]。出力は、行ベクトルのセル配列の文字列表現です（例：）{[]; [1 2 3]}。単一要素の行ベクトルは数値と同じです（そのため、の{1; 2; 3}代わりに出力されます{[1]; [2]; [3]}）。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

t     % Implicit input, say x. Duplicate
n     % Number of elements, say N
:     % Range: [1 2 ... N]
IXQ   % accumarray(x, [1 2 ... N], [], @(x){sort(x).'})
&D    % String representation

ほとんどの作業は、Matlabの高次関数によって行われますaccumarray。これは、最初の入力の一致する値に従って2番目の入力の要素をグループ化し、指定された関数を各グループに適用します。この場合の関数は@(x){sort(x).'}、各グループのソートされた要素を出力し、すべてのグループの結果をセル配列にパックします。

Python、69バイト

lambda s:[[j for j,x in enumerate(s)if x==i]for i in range(max(s)+1)]

0ベースのインデックスを使用します。

ゼリー、7 5バイト

=þṀT€

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

使い方

=þṀT€  Main link. Argument: A (array)

  Ṁ    Yield m, the maximum of A.
=þ     Equals table; for each t in [1, ..., m], compare all elemnts of A with t,
       yielding a 2D Boolean array.
   T€  Truth each; for each Boolean array, yield all indices of 1.

ゼリー、8バイト

Jẋ"Ṭ€;"/

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

使い方

Jẋ"Ṭ€;"/  argument: z           eg. [6,6,4,4]
J         [1 .. len(z)]             [1,2,3,4]
   Ṭ€     untruth each of z         [[0,0,0,0,0,1],
                                     [0,0,0,0,0,1],
                                     [0,0,0,1],
                                     [0,0,0,1]]
 ẋ"       repeat each of ^^         [[[],[],[],[],[],[1]],
          as many times as           [[],[],[],[],[],[2]],
          each of ^                  [[],[],[],[3]],
                                     [[],[],[],[4]]]
       /  reduce by...
     ;"   vectorized concatenation  [[],[],[],[3,4],[],[1,2]]

Mathematica、36バイト

Join@@@#~Position~n~Table~{n,Max@#}&

説明

毎nに{1, 2, ..., Max@#}、Max@#入力リスト内の最大の整数であり、計算PositionSをここでn入力されたリストに表示されます#。以降Position[{6,6,5,5},5]（例えば）戻り{{3},{4}}、我々は、次にApply Joinレベルのすべての要素に{1}結果。

Haskell、45バイト

s整数のリストを取り、リストのリストを返します。テストケースの入力が変更されないように1インデックスが付けられます（ただし、出力には余分な空のリストが追加されます）。

s l=[[i|(i,y)<-zip[1..]l,y==x]|x<-[1..sum l]]

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

これらは非常に簡単なネストされたリスト内包表記です。わずかな微調整は、のsum代わりにを使用してより長いリストを作成するオプションを利用することですmaximum。

PHP、55バイト

<?while($i<=max($_GET))print_r(array_keys($_GET,$i++));

0インデックス。

R、68 49 47バイト

lapply(1:max(x<-scan()),function(y)which(y==x)) 

驚いたことに、長いソリューションよりもずっと簡単です。xSTDINからベクトルを取得し、1to からベクトルを作成しmax(x)、暗黙的にlengthのリストを生成し、max(x)どのインデックスがx新しいリストのインデックスと一致するかをチェックします。暗黙的に出力を印刷します。

古いバージョン：

o=vector('list',max(x<-scan()));for(i in x)o[[i]]=c(o[[i]],F<-F+1);o

他のRの回答に対する若干異なるアプローチ。STDINへのベクトルを取得し、入力の最大値に等しい長さのリストを作成します。入力をループし、適切な場所にインデックスを追加します。

1ベースのインデックスを使用します。

パイソン2、91の 86 85バイト

私は自分の電話でプログラミングをしていますが、このチャレンジが本当に好きでした。これをさらに確実にゴルフすることができます。

def f(a):
 r=[[]for i in range(max(a)+1)]
 for i,j in enumerate(a):r[j]+=[i]
 print r

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

ゼリー、9 バイト

Ṭ+\ịĠȧ@"Ṭ

として表される1インデックス付きの空のセット、として0表されるN複数のアイテムのセットとして表される1つのアイテムのセット[M,N,...]

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

どうやって？

Ṭ+\ịĠȧ@"Ṭ - Main link: list a        e.g. [6,6,4,4]
Ṭ         - untruth a                     [0,0,0,1,0,1]
  \       - cumulative reduce with:
 +        -   addition                    [0,0,0,1,1,2]
    Ġ     - group indices of a by value   [[3,4],[1,2]]
   ị      - index into                    [[1,2],[1,2],[1,2],[3,4],[3,4],[1,2]]
        Ṭ - untruth a                     [0,0,0,1,0,1]
       "  - zip with:
     ȧ@   -   and with reversed @rguments [0,0,0,[3,4],0,[1,2]]

JavaScript（ES6）、64 62バイト

@SteveBennettのおかげで2バイト節約

0インデックス付き入力を受け取ります。セットのコンマ区切りリストを返します。

a=>a.map((n,i)=>o[n]=[i,...o[n]||[]],o=[])&&`{${o.join`},{`}}`

テストケース

let f =

a=>a.map((n,i)=>o[n]=[i,...o[n]||[]],o=[])&&`{${o.join`},{`}}`

console.log(f([3]))
console.log(f([0,1,2]))
console.log(f([1,1,1]))
console.log(f([4,4,5,5]))
console.log(f([5,5,4,4]))

代替バージョン、53バイト

などの単純化された出力'||||3,2|1,0'が受け入れられる場合、次のようにします。

a=>a.map((n,i)=>o[n]=[i,...o[n]||[]],o=[])&&o.join`|`

Bash、109バイト

配列の最大値には組み込み機能がありません。

a=($@)
for((x=m=1;x<=m;x++)){ for((y=0;y<$#;)){((m<a[y]))&&((m=a[y]));((a[y++]==x))&&printf "%d " $y;};echo;}

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

Mathematica 62バイト

(Y={}~Table~Max@#;Y[[#[[j]]]]~AppendTo~j~Table~{j,Tr[1^#]};Y)&

私はあなたのためにそれを実行します

(Y={}~Table~Max@#;Y[[#[[j]]]]~AppendTo~j~Table~{j,Tr[1^#]};Y)&[{4,5,2,3,3,8,6,3}]

{{}、{3}、{4、5、8}、{1}、{2}、{7}、{}、{6}}

オンラインで試してみてください（ctrl-vでコードを貼り付け、shift + enterを押します）。
上記の例のように入力リストを最後に貼り付けることを忘れないでください

Perl 6の、 36の32  29バイト

->\a{map {a.grep(*==$_):k},1..a.max}

それを試してみてください

{map {.grep(*==$^a):k},1.. .max}

それを試してみてください

{map {.grep($^a):k},1.. .max}

それを試してみてください

拡張：

{  # bare block lambda with implicit parameter ｢$_｣

  map

    {  # bare block lambda with placeholder parameter ｢$a｣

      .grep(  # grep for the values in ｢$_｣
        $^a   # that are equal to the currently tested value (and declare param)
      ) :k    # return the key (index) rather than the value
    },

    1 .. .max # Range from 1 to the maximum value in ｢$_｣

}

ゼロベースのインデックスを返します。1を使用するにはX、+op と組み合わせてクロス演算子（）を使用します。（33バイト）

{1 X+.grep($^a):k}

Setを返すようにするにsetは、そこに追加するだけです（合計37バイト）

{set 1 X+.grep($^a):k}

R、80 72バイト

1インデックス付き、Xstdinから取得。NULL空のセットとして、インデックスのベクトルのリストを返します。

X=scan();Y=vector('list',max(X));Y[X]=lapply(X,function(x)which(X==x));Y

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

古いバージョン：

X=scan();Y=vector('list',max(X));for(i in 1:length(X))Y[[X[i]]]=c(Y[[X[i]]],i);Y

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

05AB1E、10バイト

ZFā¹N-ψ}¯

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

ローダ、51バイト

f s{seq(1,max(s))|[[s()|enum|[_2+1]if[_1=i]]]for i}

UrielによるPythonの回答の移植版です。

別のバージョン（88バイト）：

f a{I=indexOf;seq(1,max(a))|{|i|b=a[:]c=[]x=1{c+=x+I(i,b)b-=i;x++}until[I(i,b)<0];[c]}_}

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

両方とも1インデックス付き。

PowerShell、81バイト

$args[0]|%{if($_-gt($c=$r.count)){$r+=@($t)*($_-$c)}$r[--$_]+=,++$i};$r|%{"{$_}"}

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

1インデックス。

GNUのメイク、214の 213 208 204バイト

X=$(MAKECMDGOALS)
M=0
P=$(eval N=$(word $1,$X))$(if $N,$(if $(shell dc -e$Nd$Mds.\>.p),$(eval M=$N),)$(eval A$N+=$1$(call $0,$(shell expr $1 + 1))),)
$(call P,1)$(foreach K,$(shell seq $M),$(info $(A$K)))

I / O：引数を介した入力配列、stdoutへの出力、行ごとに1つ、スペースで区切られます。

$ make -f swap.mk 2 2 2

3 2 1
make: *** No rule to make target `2'.  Stop.

説明

X=$(MAKECMDGOALS)     # Input array
M=0                   # Max value encountered in X
P=$(eval
    N=$(word $1,$X))  # Get next word from X
  $(if $N,$(if $(shell dc -e$Nd$Mds.\>.p),
    $(eval M=$N),)    # Update M
    $(eval A$N+=$1    # Append index to a variable named after value
      $(call $0,      # Recurse (call returns empty string)
        $(shell expr $1 + 1))),)
$(call P,1)           # Initial call to P. 1 is the first index
$(foreach K,          # Print all values of A* variables
  $(shell seq $M),
  $(info $(A$K)))     # Uninitialized ones default to empty strings

セット内のインデックスの順序は、P更新の前に再帰的にA$2呼び出されるため、逆になります（呼び出しは右側の評価で実行されます）。

Common Lisp、91バイト

(lambda(x &aux(l(make-list(eval`(max,@x))))(i 0))(dolist(y x l)(push(incf i)(nth(1- y)l))))

1ベースのインデックス付け。セットをリストとして返します。

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

k、13バイト

{(=x)@!1+|/x}

これは0インデックスです。

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

{           } /function(x)
 (=x)         /make a map/dictionary of values to their indices
         |/x  /get maximum value in x
      !1+     /make a range from 0 to the value, inclusive
     @        /get map value at each of the values in the range
              /    0N is given where there is no result