Herhangi bir permütasyonun bir dizi döngüye ayrılabileceği iyi bilinen bir teorem vardır . İşiniz mümkün olan en kısa programı yazmaktır.

Giriş:

İki çizgi. Birincisi bir sayı N, ikincisi boşluklarla ayrılmış Naralıkta farklı tamsayılar içerir [0,N-1]. Bu tamsayılar Nelementlerin permütasyonunu temsil eder .

Çıktı:

Permütasyondaki her döngü için bir satır. Her satır, döngü sırasında boşlukla ayrılmış bir tam sayı listesi olmalıdır.

Döngüler herhangi bir sırayla çıkarılabilir ve her bir döngü herhangi bir konumdan başlayarak çıkarılabilir.

Örnek 1:

8
2 3 4 5 6 7 0 1

Bu giriş 0-> 2, 1-> 3, 2-> 4, 3-> 5, 4-> 6, 5-> 7, 6-> 0, 7-> 1 permütasyonunu kodlar. Bu, aşağıdaki gibi döngüler halinde ayrışır:

0 2 4 6
1 3 5 7

Aynı derecede geçerli bir çıktı

5 7 1 3
2 4 6 0

Örnek 2:

8
0 1 3 4 5 6 7 2

geçerli çıktı:

0
1
4 5 6 7 2 3

C 145134 Karakterler

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

Python 131 karakter

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

son satırsonuna gerek yok

Haskell, 131 karakter

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

• Düzenleme: (135 -> 131) >=oldu >, taildesen eşleştirme ve ön uygulama olsa iki çağrı ortadan kaldırıldı a!!.

C (bir çeşit), 139 karakter

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("");}}

Son satırsonu dahil edilmemiştir.

"Bir çeşit" dedim çünkü AFAIK

1. varyasyon fonksiyonları için beyanı atlamak yasal değildir (ANSI C89: 3.3.2.2)
2. int Değişken bildirimi için atlanamaz (atlandığı ve örtük tip bildiriminin yalnızca işlevler için açıklandığı yerde bulamadım. Standarttaki gramer belirtimi, geçerli C bildirimlerinden çok daha fazlasını kabul ettiği için temelde işe yaramaz, örneğin double double void volatile x; )
3. boş olmayan bir kaynak dosyanın sonundaki yeni satır zorunludur (ANSI C89: A.6.2)

ancak gcc -ocycles cycles.cgörünüşe göre derlenmiş yukarıdaki kod zaten çalışıyor.

J (2 ile 32 arasında)

I / o biçiminde tam olarak açık değilim, ancak C.aşağıdaki çıktı kabul edilirse yapacağını düşünüyorum :

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

(J terminalinde daha iyi görünüyor.)

I / o biçimini en iyi anladığımla uyumlu bir adlandırılmış işlev olması gerekiyorsa, bu 32 karakterden oluşur ve bunların 30'u çıktı biçimi dönüşümü içindir ...

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

Eylemde:

   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

Açıklama:

J sağdan sola (pratik olarak) yürütülür. @işlevleri birleştirmek için bir 'işlev' (teknik olarak bir işlev değil, ancak yeterince yakın).

• i.&LF- LFASCII karakter sayısı 10'u içeren önceden tanımlanmış bir değişken olan ilk dizini , satır feed'ini bulun .
• >:- ilkini bulun ve LFdizinini bir artırın. Aslında satır beslemesini istemiyoruz, onu izleyen diziyi istiyoruz.
• }.~ - Girişin istediğimiz bölümünü seçer.
• ".- Giriş formatı J ( * \ õ / * ) geçerli olduğundan , evalfiili evalbir diziye dönüştürmek için kullanabiliriz (aslında çağrılmadığını biliyorum .)
• C.- Saf büyü. Bunun ne yaptığına dair hiçbir fikrim yok, ama işe yarıyor gibi görünüyor!
• ":L:0- Temsil. Çıktısını C.kutulu bir dizgi dizisine dönüştürür
• >- Kutuyu kaldır. Gerçek çıktı aslında bir dize dizisidir (örneğin ilkinden sayılarına kadar boşluklar vardır).

Clojure, 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"")))

Biraz çözülmemiş ve bir fonksiyona bölünmüş (giriş bir vektör olmalıdır, bu da yukarıdan (vec (tekrar tekrar (okuma))) üretir):

(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 "")))

(Vay be, bu zorluğun 3 yaşın üzerinde olduğunu fark ettim. Ah, yine de bunu yaparken eğlendim!)