さて、コードゴルフの2回目の試みで、これがどうなるか見てみましょう。

9つの値の配列があるとします。3x3グリッドの配列を想像してください。

その数が配列のインデックスとして持っているネイバーを返す必要があります。

0 | 1 | 2

3 | 4 | 5

6 | 7 | 8

ルール：

• それはコードゴルフですので、最短の回答が勝ちます。
• ふり配列のインデックスは0または1から開始できます（ただし、すべての例で0を使用しています）。
• 値を返すだけで値が眉をひそめます（などif 3: return 046）
• 提出は単なるプロシージャ/関数/メソッドですが、例はいいでしょう
• 返される値は任意の順序にすることができます（入力が0の場合、13または31になる可能性があります）
• 必要に応じて、出力は数値のリストにすることができます。たとえば[0,4,6]、046
• 例からわかるように、対角線はカウントされません。

例：

入力：

0

出力：

13

入力：

3

出力：

046

入力：

4

出力：

1357

ゼリー、16 13バイト

9Ḷ,d3ạ/S€=1T’

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

使い方

9Ḷ,d3ạ/S€=1T’  Main link. Argument: n (0, ..., 8)

9              Set the return value to 9.
 Ḷ             Unlength; yield [0, ..., 8].
  ,            Pair; yield [[0, ..., 8], n].
   d3          Divmod 3; yield [[[0, 0], ..., [2, 2]], [n:3, n%3]]].
     ạ/        Reduce by absolute difference, yielding
               [[|0 - n:3|, |0 - n%3|], ..., [[|2 - n:3|, |2 - n%3|]].
       S€      Sum each, yielding
               [|0 - n:3| + |0 - n%3|, ..., [|2 - n:3| + |2 - n%3|].
         =1    Compare the sums with 1.
           T   Truth; yield all 1-based indices of 1.
            ’  Decrement to yield all 0-based indices of 1.

MATL、17 16バイト

9:qWIe1Y6Z+i)BPf

配列は1から始まります。つまり、から1までの数字が含まれます9。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

2例として入力を検討してください。

9:q  % Push [0 1 2 ... 8]
     % STACK: [0 1 2 ... 8]
W    % Rise to 2, element-wise
     % STACK: [1 2 4 ... 256]
Ie   % Reshape as 3-row matrix (column-major order)
     % STACK: [1   8  64;
               2  16 128;
               4  32 256]
1Y6  % Push [0 1 0; 1 0 1; 0 1 0]
     % STACK: [1   8  64;
               2  16 128;
               4  32 256],
              [0   1   0;
               1   0   1;
               0   1   0]
Z+   % Convolution, maintaining size
     % STACK: [10  81 136;
               21 170 336;
               34 276 160]
i    % Take input, n
     % STACK: [10  81 136;
               21 170 336;
               34 276 160],
               2
 )   % Get n-th entry (1-based; column-major order)
     % STACK: 21
B    % Convert to binary
     % STACK: [1 0 1 0 1]
P    % Flip
     % STACK: [1 0 1 0 1]
f    % Find: gives indices of nonzeros. Implicitly display
     % STACK: [1 3 5]

Mathematica、32バイト

GridGraph@{3,3}~AdjacencyList~#&

配列の代わりにグラフを使用します。GridGraph@{3,3}以下に示す3x3のグリッド形状のグラフを作成します。Mathematicaはデフォルトで頂点に1〜9の番号を付けてラベルを付けます。次に~AdjacencyList~#&、頂点の近傍を示します。

Mathematica、40バイト

{24,135,26,157,2468,359,48,579,68}[[#]]&

1インデックス付き。答えを調べるだけです。誰かがMathematicaで上手くやれるか？

オクターブ、42 40 39バイト

@(n,x=~e(3),y=x(n)=1)find(bwdist(x)==1)

1ベースのインデックス。

すべてのテストケースを確認します。

説明：

x=~e(3);         % create a 3*3 matrix of zeros
x(n)=1;          % set the element with index n to 1
d=bwdist(x);     % compute the distance transform of the matrix
find(d == 1)     % find where the distance is 1.

例： n = 2

x =

   0   0   0
   1   0   0
   0   0   0

（オクターブでは、データは列ごとに保存されます。）

d =

   1.00000   1.41421   2.23607
   0.00000   1.00000   2.00000
   1.00000   1.41421   2.23607

距離が1の論理インデックス

d == 1

 1   0   0
 0   1   0
 1   0   0

find(d ==1)

 1
 3
 5

Python 2、71バイト

lambda n:filter(abs,[(n-3)*(n>3),(n+3)*(n<7),~-n*(n%3!=1),-~n*(n%3>0)])

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

事前定義された結果リストから結果を取得する方が短い（46バイト）：

[13,204,15,406,1357,248,37,468,57].__getitem__

0-indexed
オンラインで試してみてください！

Haskell、74 71 68バイト

f n=[x|x<-[n-3,n-1..n+3],0<x,x<10,gcd 3x<2||n-1/=x,gcd 3n<2||n+1/=x]

オンラインでお試しください！1インデックスのグリッドを使用します。使用例：をf 3返します[2,6]。

編集：ØrjanJohansenのおかげで3 6バイトを節約しました！

ために77の 75バイト、次の関数は、#任意のグリッドサイズのために働きますm。

n#m=[x|x<-[n-m,n-1,n+1,n+m],0<x,x<=m*m,gcd x m<m||n-1/=x,gcd n m<m||n+1/=x]

オンラインでお試しください！ 各nリストに[n-m,n-1,n+1,n+m]は、4つすべての近隣が含まれています。各エントリのためにx、このリストの中、我々はチェック-1<xし、x<m*m確認するために、xグリッドの上または下にはありませんが、mod n 3>0||n-1/=x左グリッドの境界線を強制すると、mod(n+1)m>0||n+1/=x左の境界について。

ルビー、51 48 45バイト

->a{[a+3,a-3][a/6..a/3]+[a+1,a-1][a%-3..a%3]}

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

垂直および水平の隣人を持つ2つの配列を作成し、それらの1つ以上を選択します。

Rubyのハードコーディング、44バイト

->a{%w(13 024 15 046 1357 248 37 468 57)[a]}

... それだけの価値はありません。

C、100 92 91 83 78 74バイト

p(n){putchar(n+48);}f(n){n>3&&p(n-3);n<7&&p(n+3);n%3&&p(n+1);--n%3&&p(n);}

1インデックス付き。4バイトを節約してくれた@Neilに感謝します。

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

ハードコードされたバージョン、56バイト

l[]={13,204,15,406,1357,248,37,468,57};
#define L(n)l[n]

0インデックス付き

Python 2、51バイト

lambda x:[x+3,x-3][x/6:x/3+1]+[x+1,x-1][x%-3:x%3+1]

以前のバージョンのRubyの回答に基づいて、それはほとんど同じコードであり、異なるトリックを使用し、同じ結果を生成するため、興味深いことに気付きました。これを正しくすることで、ルビーの答えをもう少し手伝うことができました。

基本的に、配列スライスインデックスが包括的であるため、Rubyの方が短くなります。Pythonは+1補正する必要があります。

説明

2つの配列（垂直および水平の隣人）を取得し、いくつかの計算に基づいて一方または両方を選択します。

Java 7、63バイト（ハードコード）

int c(int i){return new int[]{31,420,51,640,7531,842,73,864,75}[i];}

0は、インデックス
（逆順出力ため024と046有効な整数ではありません。）
それでも非ハードコードされたバージョンで作業していて、私はそれがより短くなりませんを保証することができます。..

ここで試してみてください。

82バイト

String c(int n){return""+(n>3?n-3:"")+(n<7?n+3:"")+(n%3>0?n+1:"")+(--n%3>0?n:"");}

1インデックス付き@Steadybox 'Cの回答に
基づく

ここで試してみてください。

JavaScript + lodash、71バイト

f=a=>_.range(9).filter(b=>a>b?f(b).includes(a):[,1,,1][b-a]&&b%3|a%3<2)

バッチ、116バイト

@set c=cmd/cset/a%1
@set/ar=%1%%3
@if %1 gtr 2 %c%-3
@if %r% gtr 0 %c%-1
@if %r% lss 2 %c%+1
@if %1 lss 6 %c%+3

0インデックス付き。