チャレンジ

整数n≥4の場合、2つの連続する整数（絶対差1の整数）が互いに隣接しないという性質を持つ整数[0、n-1]の順列を出力します。

例

• 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]

代わりに1インデックスを使用できます（[0、n-1]の代わりに整数[1、n]を使用）。

コードはnの多項式時間で実行する必要があるため、すべての順列を試して、それぞれをテストすることはできません。

ゼリー、3 2バイト

ḂÞ

[1、...、n]の整数をLSBでソートします。

オンラインでお試しください！

Python 2、32バイト

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

オンラインでお試しください！

Pythonの3、40、38のバイト

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

オンラインでお試しください！

これはO(n)時間内に実行されます。

2バイトを節約してくれたDennisに感謝します！

Python 2、34バイト

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

オンラインでお試しください！

Python 2、40バイト

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

オンラインでお試しください！

Haskell、22バイト

fは、適切に順序付けられたリストを返すnの関数です。1-indexingオプションを使用しています。

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

オクターブ、17バイト

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

オンラインでお試しください！

これは他の多くと同じアプローチを使用します。2つのベクトルを連結します。1つは包含範囲2 ... xのすべての偶数、1 ... xは包含範囲のすべての奇数です。構文はかなり明白なはずなので、それについては説明しません。

JavaScript（ES6）、40バイト

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>

編集：@Arnauldのおかげで1バイト保存されました。

ガイア、2バイト

r∫

オンラインでお試しください！

この単純（安定した）は、∫の範囲の整数ORTS [1、入力]をそれらのPAによりr個の ITY。

R、39 36 35バイト

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

オンラインでお試しください！

05AB1E、3 バイト

DJMcMayhemのPython回答とDennisのJelly回答のポート

ÝΣÉ

オンラインでお試しください！

どうやって？

ÝΣÉ - 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バイト

また、置き換えることができますuとv異なる順序を取得します。

õ ñu

それを試してみてください

または、2つの配列の配列を出力できる場合：

õ ó

それを試してみてください

Mathematica、50-> 47-> 42バイト

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

オンラインでお試しください！

Flatten []の代わりに使用される2つの最適化の潜在的なJoin []を指摘し、純粋な関数を使用してくれたuser202729に感謝します。

2つの発言を追加したいと思います。

1）OPで要求されたn> = 4で、連続した下降または上昇のない特定の順列を構築するのはかなり簡単です。

2つの連続したリストで構成されます。

偶数nの場合：
list1 =（2,4、...、n / 2）
list2 =（1,3、...、n / 2-1）

奇数nの場合：
list1 =（2,4、...、Floor [n / 2]）
list2 =（1,3、...、Floor [n / 2]）

この「アルゴリズム」については、1つの決定（n偶数または奇数）を行う必要があり、残りはn個の数字を書き留めるだけです。

可能なMathematicaソリューションが上部に提供されています。

2）関連する質問は、nの関数としてそのようなパーミュレーションがいくつ存在するかです。

Mathematica、124バイト

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]

オンラインでお試しください！

例：

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

{2、14、90、646、5242、47622、479306、5296790、63779034}

そのような順列の数を数えることは標準的な問題です。

n = 4の場合、2は{{2,4,1,3}、{3,1,4,2}}です。

n = 5の場合、14があります：{{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}}

これらの順列の数a（n）は急速に増加します：2、14、90、646、5242、47622、479306、5296790、63779034、...

nが大きい場合、比率a（n）/ n！限界1 / e ^ 2 = 0.135335に近づいているようです。厳密な証拠はありませんが、数値的証拠からの推測にすぎません。オンラインでプログラムを実行して、これをテストできます。

上記のプログラム（下記の参照に基づいて）は、これらの数値を計算します。

OEIS：A002464の関連するシーケンスで詳細を確認できます。Hertzsprungの問題：n X nボード上にn個の非攻撃キングを配置する方法。各行と列に1つずつ。また、連続した上昇または下降を伴わない長さnの順列の数。

JavaScript（Node.js）、42バイト

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

オンラインでお試しください！

JavaScript（Node.js）、47バイト

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

オンラインでお試しください！

ルビー、27バイト

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

オンラインでお試しください！

1インデックスの使用

空白、161バイト

コメントなしの公式投稿は次のとおり です。オンラインで試してみてください！

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

オンラインでお試しください！

プログラムがエラーなしで実行されるように数バイトを犠牲にしました。約7-8バイトを失う可能性があると信じていますが、それでも正しく出力されますが、エラーメッセージも出力しますが、誰もそれを望んでいません。

フルバイトの説明：

[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＃（モノ）、27バイト

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

オンラインでお試しください！

Gol> <>、14バイト

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

オンラインでお試しください！

完全なプログラムの例と仕組み

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バイト

i./:2|1+i.

オンラインでお試しください！

説明：

  /:          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バイト

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

@NeilのJavaScript（ES6）回答のポート。

オンラインでお試しください。

古い66バイトの答え：

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

オンラインでお試しください。

説明：

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

ルビー、27バイト

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

この回答のように、n最初の整数は最下位ビットでソートされます。

オンラインでお試しください！