Meydan okuma

N ≥ 4 tamsayısı verildiğinde , iki ardışık tamsayı (mutlak fark 1 olan tamsayılar) yan yana olmaması özelliğiyle [0, n-1] tamsayılarının permütasyonunu verin .

Örnekler

• 4 → [1, 3, 0, 2]
• 5 → [0, 2, 4, 1, 3]
• 6 → [0, 2, 4, 1, 3, 5]
• 7 → [0, 2, 4, 1, 5, 3, 6]

Bunun yerine 1 dizinleme kullanabilirsiniz ( [0, n-1] yerine [1, n] tamsayılarını kullanarak ).

Kodunuz n cinsinden polinom zamanında çalıştırılmalıdır , böylece tüm permütasyonları deneyemez ve her birini test edemezsiniz.

Jöle , 3 2 bayt

ḂÞ

[1, ..., n] içindeki tam sayıları LSB'lerine göre sıralar .

Çevrimiçi deneyin!

Python 2 , 32 bayt

lambda n:(range(n|1)*2)[1:n*2:2]

Çevrimiçi deneyin!

Python 3 , 40 , 38 bayt

lambda n:[*range(1,n,2),*range(0,n,2)]

Çevrimiçi deneyin!

Bu O(n)zamanla çalışır .

Dennis'e 2 bayt kaydettiği için teşekkürler!

Python 2 , 34 bayt

lambda n:range(1,n,2)+range(0,n,2)

Çevrimiçi deneyin!

Python 2 , 40 bayt

lambda n:[(k-~k)%(n|1)for k in range(n)]

Çevrimiçi deneyin!

Haskell, 22 bayt

f, uygun bir sıralı liste döndüren n'nin bir fonksiyonudur. 1 dizinleme seçeneğini kullanıyorum.

f n=[2,4..n]++[1,3..n]

Oktav , 17 bayt

@(x)[2:2:x,1:2:x]

Çevrimiçi deneyin!

Bu, diğer birçok yöntemle aynı yaklaşımı kullanır. İki vektörü, biri 2 ... x dahil çift sayısında ve 1 ... x dahil aralığındaki tüm tek sayıları içeren iki vektör birleştirin . Sözdizimi oldukça açık olmalıdır, bu yüzden bunu açıklamayacağım.

JavaScript (ES6), 40 bayt

f=
n=>[...Array(i=n)].map(_=>(i+--i)%(n|1))

<input type=number min=4 oninput=o.textContent=f(+this.value).join`\n`><pre id=o>

Düzenleme: @Arnauld sayesinde 1 bayt kaydedildi.

Gaia , 2 bayt

r∫

Çevrimiçi deneyin!

Bu sadece bir (kararlı) ∫ aralığındaki tamsayıları ORTS [1, giriş] kendi pa ile R ity.

R , 39 36 35 bayt

function(x)c(seq(2,x,2),seq(1,x,2))

Çevrimiçi deneyin!

05AB1E , 3 bayt

Bağlantı noktası DJMcMayhem'in Python yanıtı ve Dennis'in yanıtı

ÝΣÉ

Çevrimiçi deneyin!

Nasıl?

ÝΣÉ - implicitly take input onto stack  e.g. 7
Ý   - pop a and push range(a)               [0,1,2,3,4,5,6]
 Σ  - sort by (stable):
  É -   is even? (x%2==0 ?)                 [1,3,5,0,2,4,6]
    - implicit print of top of stack

Japt, 4 bayt

Farklı bir sipariş almak için uile de değiştirebilirsiniz v.

õ ñu

Dene

Veya 2 diziden oluşan bir diziyi çıkarabilirsek:

õ ó

Dene

Mathematica, 50 -> 47 -> 42 bayt

p = Join[Range[2, #, 2], Range[1, #, 2]] &

Çevrimiçi deneyin!

İki kat optimizasyon potansiyelini belirtmek için user202729 sayesinde Flatten [] insteaed [] 'a katılın ve saf fonksiyonları kullanın.

İki açıklama eklemek istiyorum.

1) OP'de talep edildiği gibi n> = 4 için art arda veya yükselme olmadan belirli bir permütasyon oluşturmak oldukça basittir.

Birbirini takip eden iki listeden oluşur.

N için bile bunlar şunlardır:
list1 = (2,4, ..., n / 2)
list2 = (1,3, ..., n / 2-1)

Tek n için elimizdeki:
list1 = (2,4, ..., Kat [n / 2])
Listesi 2 = (1,3, ..., Kat [n / 2])

Bu "algoritma" için sadece bir karar verilmelidir (n çift veya tek), geri kalanı ise n sayı yazıyor.

Üstte olası bir Mathematica çözümü sağlanmıştır.

2) İlgili bir soru, n'nin bir fonksiyonu olarak bu tür kaç permütasyonun var olduğudur.

Mathematica, 124 Bayt

a[0] = a[1] = 1; a[2] = a[3] = 0;
a[n_] := a[n] = (n + 1)*a[n - 1] - (n - 2)*a[n - 2] - (n - 5)*a[n - 3] + (n - 3)*a[n - 4]

Çevrimiçi deneyin!

Misal:

a[#] & /@ Range[4, 12]

{2, 14, 90, 646, 5242, 47622, ​​479306, 5296790, 63779034}

Bu permütasyonların sayısını saymak standart bir sorundur.

N = 4 için 2 vardır: {{2,4,1,3}, {3,1,4,2}}

N = 5 için 14 vardır: {{1,3,5,2,4}, {1,4,2,5,3}, {2,4,1,3,5}, {2,4, 1,5,3}, {2,5,3,1,4}, {3,1,4,2,5}, {3,1,5,2,4}, {3,5,1, 4,2}, {3,5,2,4,1}, {4,1,3,5,2}, {4,2,5,1,3}, {4,2,5,3, 1}, {5,2,4,1,3}, {5,3,1,4,2}}

Bu permütasyonların a (n) sayısı hızla yükselir: 2, 14, 90, 646, 5242, 47622, ​​479306, 5296790, 63779034, ...

Büyük n için a (n) / n oranı! 1 / e ^ 2 = 0.135335 limitine yaklaşıyor gibi görünüyor ... Kesin bir kanıtım yok ama sadece sayısal kanıtlardan bir varsayım. Programı çevrimiçi çalıştırmayı deneyerek test edebilirsiniz.

Yukarıdaki program (aşağıda verilen referansa dayanarak) bu sayıları hesaplar.

OEIS : A002464 ile ilgili sırada daha fazla bilgi bulabilirsiniz . Hertzsprung'un problemi: n X n panosunda, her sıra ve sütunda 1 olmak üzere, hücum etmeyen kralları düzenlemenin yolları. Ayrıca, art arda veya düşmeden art arda n permütasyon sayısı.

JavaScript (Node.js) , 42 bayt

n=>(f=i=>i<n?[i,...f(i+2)]:i&1?[]:f(1))(0)

Çevrimiçi deneyin!

JavaScript (Node.js) , 47 bayt

n=>(f=i=>i--?[n--*2%(N|1)+N%2,...f(i)]:[])(N=n)

Çevrimiçi deneyin!

Yakut , 27 bayt

->n{[*2.step(n,2)]|[*1..n]}

Çevrimiçi deneyin!

1 endekslemeyi kullanma

Boşluk , 161 bayt

İşte resmi, önerilmeyen gönderim: Çevrimiçi deneyin!

push_0   
read_n	
		push_0   
retreive_n			push_1  		
subtract	   dup_and_out[ 
 	
 	]label_s'
   
'push_2  		 
subtract	   dup[ 
 ]jump_next_if_neg:
		  
:dup_and_out[ 
 	
 	]else_jump_back:
 
 
:label_ss'
    
'push_0   
retreive_n			push_2  		 
subtract	   dup_and_out[ 
 	
 	]dup[ 
 ]jump_next:
 
    
:label_ssss'
      
'push_2  		 
subtract	   dup[ 
 ]jump_end_if_neg:
		   
:dup_and_out[ 
 	
 	]else_jump_back:
 
    
:label_sss'
     
'end

Çevrimiçi deneyin!

Programın hatasız çalışabilmesi için birkaç bayt kurban ettim, yaklaşık 7-8 bayt kaybedebileceğime inanıyorum ve yine de doğru çıktı verecekti, ancak hata iletileri de çıktı ve kimse bunu istemiyor.

Tam Bayt Açıklaması:

[Space][Space][Space][N]                   Push a 0 on the stack
[Tab][Tab][N][Tab][Tab][Tab][Tab]          Read input value and store in heap
[Space][Space][Space][N]                   Push a 0 on the stack again
[Tab][Tab][Tab]                            Retrieve the value from the heap
[Space][Space][Tab][Tab][N]                Push a -1 on the stack
[Tab][Space][Space][Space]                 Add -1 to value
[Space][N][Space]                          Duplicate 
[Tab][N][Space][Tab]                       Output
[N][Space][Space][Space][N]                Set First Label
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 Subtract 2 from value
[Space][N][Space]                          Duplicate
[N][Tab][Tab][Space][Space][N]             If negative, jump to second label
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[N][Space][N][Space][N]                    Jump back to first label
[N][Space][Space][Space][Space][N]         Set Second Label
[Space][Space][Space][N]                   Push a 0 on the stack
[Tab][Tab][Tab]                            Retrieve input value from heap again
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 This time, Add a -2 to the value
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[Space][N][Space]                          Duplicate
[N][Space][N][Space][Tab][N]               Jump to third label
[N][Space][Space][Space][Tab][N]           Set third label
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 Subtract 2 from value
[Space][N][Space]                          Duplicate
[N][Tab][Tab][Space][Space][Space][N]      Jump to end if negative
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[N][Space][N][Space][Tab][N]               Jump back to third label
[N][Space][Space][Space][Space][Space][N]  Set fourth label/end
[N][N][N]                                  Terminate

F # (Mono) , 27 bayt

let f n=[2..2..n]@[1..2..n]

Çevrimiçi deneyin!

Gol> <> , 14 bayt

FL:2%Z}:3=?$|B

Çevrimiçi deneyin!

Örnek tam program & Nasıl çalışır

1AGIE;GDlR~
FL:2%Z}:3=?$|B

1AG          Register row 1 as function G
   IE;       Take number input; halt on EOF
      GD     Call G and print the stack
        lR~  Empty the stack
             Repeat indefinitely

F           |   Repeat n times...
 L              Push loop counter (0..n-1)
  :2%Z}         If even, move to bottom of the stack
       :3=?$    If top == 3, swap top two
                  This is activated only once to make [2 0 3 1]
             B  Return

J , 10 bayt

i./:2|1+i.

Çevrimiçi deneyin!

Açıklama:

  /:          sort
i.            the numbers in the range 0..n-1 
    2|        according the remainder mod 2 of 
      1+i.    the numbers in the range 1..n   

Java 8, 56 bayt

n->{for(int i=n;i>0;)System.out.println((i+--i)%(n|1));}

Bağlantı noktası @Neil JavaScript (ES6) yanıtı .

Çevrimiçi deneyin.

Eski 66 bayt cevap:

n->{String[]r={"",""};for(;n-->0;)r[n%2]+=n+" ";return r[0]+r[1];}

Çevrimiçi deneyin.

Açıklama:

n->{                  // Method with integer parameter and String return-type
  String[]r={"",""};  //  Result-Strings, both starting empty
  for(;n-->0;)        //  Loop in the range (n, 0]
    r[i%2]+=i+" ";    //   Append `i` and a space to one of the two result-Strings,
                      //   depending on if it is even (first) or odd (second)
  return r[0]+r[1];}  //  Return the two result-Strings appended to each other

Yakut, 27 bayt

->n{(1..n).sort_by{|i|i&1}}

Bu cevapta olduğu gibi , nilk tamsayılar en küçük anlamlı bitlerine göre sıralanır.

Çevrimiçi deneyin!