이 문제를 해결하기 위해리스트를 입력으로 받아서 해당리스트의 순열을 리턴하는 함수 (함수가 완전한 프로그램 일 수 있음)를 작성하려고합니다. 기능은 다음 요구 사항을 준수해야합니다.

• 결정적이어야합니다.

• 함수 자체를 가변 횟수로 구성하면 순열 목록을 얻을 수 있어야합니다.

이것은 코드 골프 질문이므로 바이트 수가 적을수록 답이 바이트로 표시됩니다.

추가 규칙

• 당신은 목록의 모든 유형, (걸릴 수 있습니다 [Integer], [String], [[Integer]]그것만큼)를

  • 비어 있지 않을 수 있습니다
  • 16 개 이상의 가능한 값을 가진 개별 개체를 포함 할 수 있습니다. (하스켈을 사용할 수 없으며 [()]기능이이라고 주장 할 수 없습니다 id)
  • 중복 객체를 포함 할 수 있음 (세트 없음)

• 프로그램이나 함수를 작성할 수 있지만 표준 IO를 준수해야합니다.

CJam (11 바이트)

{_e!_@a#(=}

하나의 중복 요소가있는 4 요소 목록의 전체주기를 보여주는 온라인 데모 .

해부

{      e# Define a block
  _e!  e#   Find all permutations of the input. Note that if there are duplicate
       e#   elements in the input then only distinct permutations are produced.
       e#   Note also that the permutations are always generated in lexicographic
       e#   order, so the order is independent of the input.
  _@a# e#   Find the index of the input in the list
  (=   e#   Decrement and get the corresponding element of the list
       e#   Incrementing would also have worked, but indexing by -1 feels less
       e#   wrong than indexing by the length, and makes this more portable to
       e#   GolfScript if it ever adds a "permutations" built-in
}

Mathematica + Combinatorica (내장 패키지) 34 바이트

패키지를로드하려면 19 바이트, 함수는 15 바이트

<<"Combinatorica`";NextPermutation

용법:

%@{c, b, a}

내장되지 않은 61 바이트

Extract[s=Permutations[Sort@#],Mod[s~Position~#+1,Length@s]]&

Combinatorica는 Mathematica에 완전히 통합되어야하지만 NextPermutation 함수가 간과 된 것 같습니다.

파이썬 3 , 90 바이트

from itertools import*
def f(l):p=[*permutations(sorted(l))];return p[-~p.index(l)%len(p)]

온라인으로 사용해보십시오!

C ++, 42 바이트

#include <algorithm>
std::next_permutation

이 정확한 연산은 C ++에 내장되어 있습니다.

자바 스크립트 (ES6) 145 139 137 134 108 바이트

@Neil 덕분에 무려 25 바이트를 절약했습니다!

알파벳 문자 배열로 입력을받습니다. 다음 순열을 다른 배열로 반환합니다.

a=>(t=x=y=-1,a.map((v,i)=>v<a[i+1]?(t=v,x=i):y=i>x&v>t?i:y),a[x]=a[y],a[y]=t,a.concat(a.splice(x+1).sort()))

어떻게?

이것은 각 반복에서 다음 4 단계를 처리하는 사전 순서대로 생성됩니다 .

1. a [X] <a [X + 1] 와 같은 가장 큰 지수 X를 구합니다

   a.map((v, i) => v < a[i + 1] ? (t = v, x = i) : ...)

2. 최대 인덱스 찾기 Y의 보다 큰 X가 되도록 A [Y]>를 [X]

   a.map((v, i) => v < a[i + 1] ? ... : y = i > x & v > t ? i : y)

3. 가치의 교환 이 [X]를 그와 A [Y]

   a[x] = a[y], a[y] = t

4. 정렬 순서에서 A [X + 1] 까지와 사전 편찬 식 순서를 오름차순으로, 최종 요소를 포함

   a.concat(a.splice(x + 1).sort())

예:

데모

let f =

a=>(t=x=y=-1,a.map((v,i)=>v<a[i+1]?(t=v,x=i):y=i>x&v>t?i:y),a[x]=a[y],a[y]=t,a.concat(a.splice(x+1).sort()))

for(a = ["A", "B", "C", "D"], n = 0; n < 25; n++) {
  console.log(a.join(','));
  a = f(a);
}

젤리 , 6 바이트

Œ¿’œ?Ṣ

사전 식 내림차순으로 순열을 순환합니다.

온라인으로 사용해보십시오!

작동 원리

Œ¿’œ?Ṣ  Main link. Argument: A (array)

Œ¿      Compute the permutation index n of A, i.e., the index of A in the
        lexicographically sorted list of permutations of A.
  ’     Decrement the index by 1, yielding n-1.
     Ṣ  Sort A.
   œ?   Getthe (n-1)-th permutation of sorted A.

C, 161 바이트

실제 O (n) 알고리즘.

#define S(x,y){t=x;x=y;y=t;}
P(a,n,i,j,t)int*a;{for(i=n;--i&&a[i-1]>a[i];);for(j=n;i&&a[--j]<=a[i-1];);if(i)S(a[i-1],a[j])for(j=0;j++<n-i>>1;)S(a[i+j-1],a[n-j])}

사용법 예 :

int main(int argc, char** argv) {
    int i;
    int a[] = {1, 2, 3, 4};

    for (i = 0; i < 25; ++i) {
        printf("%d %d %d %d\n", a[0], a[1], a[2], a[3]);
        P(a, 4);
    }

    return 0;
}

파이썬 2 , 154 바이트

x=input()
try:exec'%s=max(k for k in range(%s,len(x))if x[%s-1]<x[k]);'*2%tuple('i1kjii');x[i-1],x[j]=x[j],x[i-1];x[i:]=x[:i-1:-1]
except:x.sort()
print x

온라인으로 사용해보십시오!

젤리 , 10 바이트

ṢŒ!Q©i⁸‘ị®

온라인으로 사용해보십시오!

정렬> 모든 순열> 입력 찾기> 1 추가> "모든 순열에 인덱스

05AB1E , 7 바이트

œêD¹k>è

온라인으로 사용해보십시오!

PHP , 117 바이트

입력 / 출력을 소문자의 문자열 목록으로 취합니다.

$a=str_split($s=$argn);rsort($a);if(join($a)!=$s)for($n=$s;($c=count_chars)(++$n)!=$c($s););else$n=strrev($s);echo$n;

온라인으로 사용해보십시오!