순열은 일련의 주기로 분해 될 수 있다는 잘 알려진 정리가 있습니다 . 당신의 임무는 가능한 가장 짧은 프로그램을 작성하는 것입니다.

입력:

두 줄. 첫 번째는 숫자를 포함 N하고 두 번째는 공백으로 구분 된 N범위의 고유 정수를 포함 [0,N-1]합니다. 이 정수는 N요소 의 순열을 나타냅니다 .

산출:

순열의 각주기에 대해 한 줄입니다. 각 줄은 공백으로 구분 된 정수 순서의주기 순서 여야합니다.

사이클은 임의의 순서로 출력 될 수 있으며 각 사이클은 임의의 위치에서 시작하여 출력 될 수 있습니다.

예 1 :

8
2 3 4 5 6 7 0 1

이 입력은 순열 0-> 2, 1-> 3, 2-> 4, 3-> 5, 4-> 6, 5-> 7, 6-> 0, 7-> 1을 인코딩합니다. 이것은 다음과 같은 사이클로 분해됩니다.

0 2 4 6
1 3 5 7

똑같이 유효한 출력은

5 7 1 3
2 4 6 0

예 2 :

8
0 1 3 4 5 6 7 2

유효한 출력 :

0
1
4 5 6 7 2 3

C 145134 문자

N,A[999],i,j,f;main(){gets(&i);for(;~scanf("%d",A+N);)N++;for(;j<N;j++,f=f&&!puts(""))while(i=A[j]+1)f=printf("%d ",j),A[j]=-1,j=--i;}

http://www.ideone.com/BrWJT

파이썬 131 자

input();d=dict((i,int(x))for i,x in enumerate(raw_input().split()))
while d:
 x=list(d)[0]
 while x in d:print x,;x=d.pop(x)
 print

끝나는 줄 바꿈이 필요하지 않습니다

하스켈, 131 자

n%l|all(>n)l=(n:l>>=(++" ").show)++"\n"|1<3=""
c(_:a)=a>>=(\n->n%(takeWhile(/=n)$iterate(a!!)$a!!n))
main=interact$c.map read.words

• 편집 : (135-> 131) >=가되어 패턴 일치 및의 사전 응용 프로그램을 >통해 두 번의 tail호출을 제거했습니다 a!!.

C (정렬), 139 자

n,j,t,a[999];main(){scanf("%*i");for(;scanf("%i",a+n)>0;)n++;while(n--)if(a[j=n]+1){for(;t=a[j]+1;a[j]=-1,j=t)printf("%i ",--t);puts("");}}

마지막 줄 바꿈은 포함되지 않습니다.

예를 들어 AFAIK 때문에 "정렬"이라고했습니다.

1. 가변 기능에 대한 선언을 생략하는 것은 합법적이지 않습니다 (ANSI C89 : 3.3.2.2).
2. int변수 선언의 경우 생략 할 수 없습니다 (나는 생략 할 수있는 곳을 찾지 못했으며 암시 적 유형 선언은 함수에 대해서만 설명됩니다. 표준의 문법 사양은 기본적으로 유효한 C 선언보다 훨씬 많은 것을 허용하므로 쓸모가 없습니다 double double void volatile x;)
3. 비어 있지 않은 소스 파일 끝에 줄 바꿈이 필수입니다 (ANSI C89 : A.6.2).

그러나 위의 코드 gcc -ocycles cycles.c는 어쨌든 작동합니다.

J (2와 32 사이)

나는 I / O 형식에 대해 명확하지 않지만 C.다음 출력이 허용되면 그렇게 할 것이라고 생각 합니다.

   C. 0 1 3 4 5 6 7 2
┌─┬─┬───────────┐
│0│1│7 2 3 4 5 6│
└─┴─┴───────────┘

(J 터미널에서 더 좋아 보입니다.)

i / o 형식을 가장 잘 이해하는 명명 된 함수가 필요한 경우 32 자이며 그 중 30자는 출력 형식 변환에 사용됩니다 ...

g=:>@(":L:0)@(C.@".@}.~>:@i.&LF)

실제로 :

   g=:>@(":L:0)@(C.@".@}.~>:@i.&LF)
   g
>@(":L:0)@(C.@".@}.~ >:@i.&(10{a.))
   t
8
0 1 3 4 5 6 7 2
   g t
0          
1          
7 2 3 4 5 6

설명:

J는 오른쪽에서 왼쪽으로 (실제로) 실행됩니다. @함수를 결합하는 '함수'(기술적으로 함수는 아니지만 충분히 가깝습니다)입니다.

• i.&LFLF-ASCII 문자 번호 10, 줄 바꿈을 포함하는 사전 정의 된 변수 의 첫 번째 색인을 찾습니다 .
• >:-첫 번째를 찾아 LF색인을 하나씩 증가시킵니다. 우리는 실제로 줄 바꿈을 원하지 않고 그 뒤에 오는 배열을 원합니다.
• }.~ -원하는 입력 부분을 선택합니다.
• ".-입력 형식이 유효한 J ( * \ õ / * ) eval이므로 동사를 사용하여 실제로 호출되지는 않습니다 eval. 배열로 바꿉니다.
• C.-순수한 마법. 나는 이것이 무엇을하는지 전혀 모른다. 그러나 그것은 효과가있는 것처럼 보인다!
• ":L:0-대표. 출력을 C.박스 화 된 문자열 시퀀스로 바꿉니다.
• >-Unbox. 실제 출력은 실제로 문자열 배열입니다 (예제에서 첫 번째 숫자부터 공백이 있습니다).

클로저, 145

(let[v(vec(repeatedly(read)read))](loop[a(set v)b 0](cond(a(v b))(do(print" "b)(recur(disj a(v b))(v b)))(seq a)(do(prn)(recur a(first a)))1"")))

다소 골퍼되지 않고 함수로 나뉩니다 (입력은 위의 벡터 (반복 (읽기) 읽기) 인 벡터이어야 함).

(defn p [v]
  (loop [a (set v) b 0]
    (cond
     (a (v b)) (do (print" "b) (recur (disj a (v b)) (v b)))
     (seq a) (do (prn) (recur a (first a)))
     1 "")))

(와,이 도전은 3 살이 넘었습니다. 아, 어쨌든 재미있게 놀았습니다!)