작업

그 입력리스트 / 배열되는 프로그램이나 함수 작성 X 출력 정수와 정수의 집합의 목록 Y , 이러한 각 요소에 대한 예를 각 세트 Y [ I ], 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부터 시작하는 인덱싱을 사용하는 경우 양의 정수입니다.

승리 조건

A와 코드 골프 도전, 짧은 더 낫다.

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의 고차 함수에 의해 수행됩니다. Matlab의 고차 함수 accumarray는 첫 번째 값의 일치하는 값에 따라 두 번째 입력의 요소를 그룹화하고 지정된 함수를 각 그룹에 적용합니다. 이 경우의 함수는입니다 @(x){sort(x).'}. 이는 각 그룹의 정렬 된 요소를 출력하고 모든 그룹의 결과가 셀형 배열로 압축되도록합니다.

파이썬, 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@#입력리스트에서 가장 큰 정수의 연산 Position들 여기서 n입력에서 나타난다 #. 이후 Position[{6,6,5,5},5](예를 들어) 반환 {{3},{4}}, 우리는 그 다음 Apply Join수준의 모든 요소에 {1}결과.

하스켈 , 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)) 

놀랍게도 더 긴 솔루션보다 훨씬 간단합니다. 벡터 취하고 x, STDIN에서 행 벡터를 생성 1하는 방법에 대해 max(x)암시 길이리스트를 생성 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세트,로 표시된 여러 항목 세트로 표시[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]]

자바 스크립트 (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`|`

배쉬 , 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를 누르십시오)
위의 예와 같이 끝에 입력 목록을 붙여 넣는 것을 잊지 마십시오

펄 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 ｢$_｣

}

op 와 결합 된 1 기반 교차 연산자 ( X)+ 를 얻기 위해 0 기반 인덱스를 반환합니다 . (33 바이트)

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

얻으려면 그것을 반환 할 설정 의 단지 추가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으로 출력.

$ 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(오른쪽 평가에서 호출이 실행 됨).

공통 리스프, 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