負でない整数は常に同じ2つの*隣人を持っていることにうんざりしているので、少し混同することにします。しかし、彼らも怠け者であり、元の位置にできるだけ近くに滞在したい。

それらは次のアルゴリズムを思い付きます：

• 最初の要素は0です。
• 要素がまだ配列には存在しないとの隣接していない最小の数であるの要素。$n^{th}$$(n-1)^{th}$

これにより、次の無限シーケンスが生成されます。

0,2,4,1,3,5,7,9,6,8,10,12,14,11,13,15,17,19,16,18,20,22,24,21,23,25,27,29,26,28 ...

0は最初の要素です。1は、まだシーケンスに含まれていない最小の数値ですが、の近傍です0。次に小さい数は2なので、これはシーケンスの2番目の要素です。今残っている数である1,3,4,5,6,...が、両方として1と3の隣人であり2、4シーケンスの第三のメンバーです。の1隣人ではないので、4最終的に4番目の要素としての位置を占めることができます。

タスク

上記のシーケンスを生成する関数またはプログラムをできる限り少ないバイトで記述します。

してもいいです

• シーケンスを無限に出力し、
• 入力を取得し、シーケンスの要素を返す、または$n$$n^{th}$
• 入力を受け取り、シーケンスの最初の要素を返します。$n$$n$

後者の2つのオプションのいずれかを選択する場合、ゼロまたは1インデックスのどちらでも問題ありません。

上記のアルゴリズムに従う必要はありません。同じシーケンスを生成する方法であれば問題ありません。

^{コードゴルフにインスパイアされた最高の順列。これはA277618であることがわかります。}
_{*ゼロには文字通り隣人が1人しかいないので、気にしません。}

JavaScript（ES6）、13バイト

シーケンスの$n$^番目の項を返します。

n=>n-2-~++n%5

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

どうやって？

これは計算します：

           n |  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 ...
-------------+--------------------------------------------------
       n - 2 | -2 -1  0  1  2  3  4  5  6  7  8  9 10 11 12 ...
 (n+2) mod 5 |  2  3  4  0  1  2  3  4  0  1  2  3  4  0  1 ...
-------------+--------------------------------------------------
         sum |  0  2  4  1  3  5  7  9  6  8 10 12 14 11 13 ...

Python 2、20バイト

lambda n:2*n%5+n/5*5

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

MathGolf、5バイト

⌠5%+⌡

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

ここでいくつかの素晴らしい対称性。nthシーケンスの要素を返します。

説明：

⌠      Increment input by 2
 5%    Modulo by 5
   +   Add to copy of input
    ⌡  Decrement by 2

ゼリー、5バイト

æ%2.+

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

組み込みのガジェットのあいまいさを確認してください！

æ%2.      Symmetric modulo 5: map [0,1,2,3,4,5,6,7,8,9] to [0,1,2,-2,-1,0,1,2,-2,-1]
    +     Add to input

Wolfram言語（Mathematica）、14バイト

#+Mod[#,5,-2]&

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

シーケンス内のn番目のゼロインデックスの整数を出力します。

R、25 23 21バイト

-Jo Kingのおかげで2バイト

n=scan();n-2+(n+2)%%5

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

nth要素を順番に出力します。

dzaima / APL、9バイト

2-⍨⊢+5|2+

アーナウド港の答え。

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

ピップ、14バイト

02413@a+a//5*5

$n$$a_n$

$a_{n+5} = a_n+5$

または、12バイトで誰もが使用している式：

a-2+(a+2)%5

Common Lisp、67バイト

(defun x(n)(loop for a from 0 to n collect(+(mod(+ a 2)5)(- a 2))))

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

Japt、8バイト

U-2Ò°U%5

ジャプト通訳

ArnauldのJavascript回答のストレートポート。リンクされたバージョンは最初のn要素を実行しますが、-mフラグが削除されても有効であり、代わりにn番目の要素を出力します。

比較のために、ここで問題に提供するアルゴリズムを実装して素朴なバージョンは次のとおりです。

@_aX É«NøZ}a}gNhT

これについて説明します。

              NhT    Set N to [0]
@           }g       Get the nth element of N by filling each index with:
 _        }a          The first integer that satisfies:
  aX É                 It is not a neighbor to the previous element
      «NøZ             And it is not already in N

05AB1E、5 バイト

Ì5%+Í

@JoKingのMathGolf回答のポート。

オンラインそれを試してみてくださいまたは最初の100の番号を確認します。

説明：

Ì        # Increase the (implicit) input by 2
 5%      # Take modulo-5
   +     # Add the (implicit) input to it
    Í    # Decrease by 2 (and output implicitly)

クリーン、31バイト

みんなが使っている式。

import StdEnv
?n=n-2+(n+2)rem 5

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

クリーン、80バイト

最初のnアイテムを返す最初のアプローチ。

import StdEnv
$n=iter n(\l=l++[hd[i\\i<-[0..]|all((<>)i)l&&abs(i-last l)>1]])[0]

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

パリ/ GP、14バイト

n->2*n%5+n\5*5

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

パリ/ GP、14バイト

n->n-2+(n+2)%5

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

J、30バイト

{.2}.[:,_5,./\2(i.-4 0$~])@,~]

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

最初のn数字のリストを返します

このソリューションは明らかに非競合ですが、配列ベースの方法を試してみたかったです。

説明：

引数は n

2 ,] -入力に2を追加

   (2,~]) 10
10 2

()@ -このリストを使用して：

i.- n範囲0..2n-1の数値で行列x 2を作成します。

   i.10 2
 0  1
 2  3
 4  5
 6  7
 8  9
10 11
12 13
14 15
16 17
18 19

4 0$~]- ~引数を逆にして、] $ 4 0になりますn-4 0を繰り返す行列x 2を作成します

   4 0$~10 2
4 0
4 0
4 0
4 0
4 0
4 0
4 0
4 0
4 0
4 0

- 最初の列から2番目の行列を引き、最初の列が2つの位置で「遅延」するようにします

   2(i.-4 0$~])@,~] 10
_4  1
_2  3
 0  5
 2  7
 4  9
 6 11
 8 13
10 15
12 17
14 19

_5,./\ 5行の重複しないグループでマトリックスをトラバースし、列をステッチする

   _5,./\2(i.-4 0$~])@,~] 10
_4 _2  0  2  4
 1  3  5  7  9

 6  8 10 12 14
11 13 15 17 19

[:, アレイ全体を解きます

   ,_5,./\2(i.-4 0$~])@,~] 10
_4 _2 0 2 4 1 3 5 7 9 6 8 10 12 14 11 13 15 17 19

2}. -最初の2つの数字をドロップします

   2}.,_5,./\2(i.-4 0$~])@,~] 10
0 2 4 1 3 5 7 9 6 8 10 12 14 11 13 15 17 19

{.最初のn数字を取る

   ({.2}.[:,_5,./\2(i.-4 0$~])@,~]) 10
0 2 4 1 3 5 7 9 6 8

J、9バイト

+_2+5|2+]

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

n番目の要素を返します。

アーナウド港の答え

K（ngn / k）、12バイト

{-2+x+5!x+2}

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

Pepe、65バイト

REeeeeeeEerEeERRrEEEEEERREeeeeeEeErEEeEeErRrEEEEEEEErRrEEEEEereEE

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

ジョーキング港の答え。

x86マシンコード、16バイト

00000000: 31d2 89c8 4949 4040 b305 f7f3 9201 c8c3 1...II@@........

アセンブリ：

section .text
	global func
func:	;function uses fastcall conventions, 1st arg in ecx, returns in eax
	;reset edx to 0 so division works
	xor edx, edx

	mov eax, ecx
	;calculate ecx (1st func arg) - 2
	dec ecx
	dec ecx

	;calculate (ecx+2) mod 5
	inc eax
	inc eax
	mov bl, 5
	div ebx
	xchg eax, edx
	
	;add (ecx-2) and ((ecx+2) mod 5), returning in eax
	add eax, ecx
	ret

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

赤、26バイト

func[n][n + 2 % 5 + n - 2]

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

アーナウド港の答え

Excel、17バイト

=A1-2+MOD(A1+2,5)

スマートなものはありません。共通の式を実装します。

C（gcc） POSIX、20バイト

f(n){n=n-2+(n+2)%5;}

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

QBasic、30バイト

INPUT x 
x=x+2 
?-4+x*2-(x\5)*5

posでリストの0インデックス付きエントリを提供しますx。

オンラインでお試しください！（それ以外の場合はインタープリターが失敗?するPRINTために拡張されていることに注意してください...）

C＃（Visual C＃Interactive Compiler）、14バイト

n=>2*n%5+n/5*5

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

他の回答と同じロジック：1 2

R、25バイト

n=1:scan()-1;n-2+(n+2)%%5

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

Rがベクトルの処理に優れているため、Port of Robert S.の答え（たった4バイトを追加するだけ）。

最初のn個の値を出力します。

dc、9バイト

d2+5%+2-p

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

ほとんどと同じ方法。スタックの最上部を複製、2を追加、mod 5、オリジナルに追加（以前に複製）、2を印刷します。

TI-BASIC、11バイト

Ans-2+remainder(Ans+2,5

Ans
$a(n)$

他の答えの簡単な移植。

注： TI-BASICはトークン化された言語です。文字数がバイト数と等しくありません。