好吧，我第二次尝试打高尔夫，让我们看看这是怎么回事。

假设您有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索引
在线尝试！

从预定义的结果列表中获取结果的时间较短（46个字节）：

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

0索引
在线尝试！

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 3return [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]包含所有四个邻居。对于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个具有垂直和水平邻居的数组，然后选择一个或多个。

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个索引。感谢@Neil节省了4个字节。

在线尝试！

硬编码版本，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需要使用a +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答案

在这里尝试。

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索引。