Được rồi, nỗ lực thứ hai của tôi tại một sân golf mã, hãy xem điều này diễn ra như thế nào.

Giả sử bạn có một mảng gồm 9 giá trị. Bây giờ hãy tưởng tượng mảng đó trong một lưới 3x3.

Bạn cần trả về hàng xóm số đó có chỉ mục của mảng.

0 | 1 | 2

3 | 4 | 5

6 | 7 | số 8

Quy tắc:

• Đó là mã golf, vì vậy câu trả lời ngắn nhất sẽ thắng.
• Chỉ mục của mảng giả vờ có thể bắt đầu từ 0 hoặc 1. (tất cả các ví dụ sử dụng 0)
• Chỉ cần trả về các giá trị giá trị được tán thành (như if 3: return 046)
• Việc gửi có thể chỉ là một thủ tục / hàm / phương thức, nhưng một ví dụ sẽ rất hay
• Giá trị được trả về có thể theo bất kỳ thứ tự nào (như nếu đầu vào bằng 0 thì có thể là 13 hoặc 31)
• nếu bạn muốn, đầu ra có thể là một danh sách các số, ví dụ [0,4,6]thay vì046
• các đường chéo không được tính, như các ví dụ đã thấy.

Ví dụ:

đầu vào:

0

đầu ra:

13

đầu vào:

3

đầu ra:

046

đầu vào:

4

đầu ra:

1357

Thạch , 16 13 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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 byte

9:qWIe1Y6Z+i)BPf

Mảng dựa trên 1, có nghĩa là chứa các số từ 1đến 9.

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

Hãy xem xét đầu vào 2là một ví dụ.

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]

Toán học, 32 byte

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

Sử dụng một biểu đồ thay vì một mảng. GridGraph@{3,3}xây dựng một biểu đồ hình lưới 3x3, được hiển thị bên dưới, mà Mathicala gắn nhãn một cách hữu ích với các số 1 L9 cho các đỉnh theo mặc định. Sau đó ~AdjacencyList~#&cho bạn biết hàng xóm của một đỉnh.

Toán học, 40 byte

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

1 chỉ mục. Chỉ cần nhìn lên câu trả lời. Ai đó có thể làm tốt hơn trong Mathicala?

Octave, 42 40 39 byte

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

Chỉ số dựa trên 1.

Xác nhận tất cả các trường hợp thử nghiệm.

Giải trình:

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.

Thí dụ: n = 2

x =

   0   0   0
   1   0   0
   0   0   0

(Trong dữ liệu Octave được lưu trữ theo cột.)

d =

   1.00000   1.41421   2.23607
   0.00000   1.00000   2.00000
   1.00000   1.41421   2.23607

chỉ số logic trong đó khoảng cách là 1:

d == 1

 1   0   0
 0   1   0
 1   0   0

find(d ==1)

 1
 3
 5

Python 2, 71 byte

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

1 chỉ mục
Hãy thử trực tuyến!

Lấy kết quả từ danh sách kết quả được xác định trước ngắn hơn (46 byte):

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

0 chỉ mục
Hãy thử trực tuyến!

Haskell , 74 71 68 byte

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]

Hãy thử trực tuyến! Sử dụng lưới 1 chỉ mục. Ví dụ sử dụng: f 3trả về [2,6].

Chỉnh sửa: Đã lưu 3 6 byte nhờ Ørjan Johansen!

Đối với 77 75 byte, hàm sau hoạt #động với kích thước lưới tùy ý 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]

Hãy thử trực tuyến! Đối với mỗi ndanh sách [n-m,n-1,n+1,n+m]chứa tất cả bốn hàng xóm. Đối với mỗi mục xtrong danh sách này, chúng tôi kiểm tra -1<xvà x<m*mđể đảm bảo xkhông nằm trên hoặc dưới lưới, mod n 3>0||n-1/=xđể thực thi đường viền lưới bên trái và mod(n+1)m>0||n+1/=xcho đường viền bên trái.

Ruby , 51 48 45 byte

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

Hãy thử trực tuyến!

Tạo 2 mảng, với các hàng xóm dọc và ngang, sau đó chọn một hoặc nhiều trong số chúng.

Ruby mã hóa cứng, 44 byte

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

... Không đáng

C, 100 92 91 83 78 74 byte

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 chỉ mục. Cảm ơn @Neil vì đã lưu 4 byte.

Hãy thử trực tuyến!

Phiên bản mã hóa cứng, 56 byte

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

Chỉ số 0

Python 2, 51 byte

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

Dựa trên phiên bản trước của câu trả lời Ruby của tôi , tôi thấy nó thú vị bởi vì nó chủ yếu là cùng một mã, sử dụng một thủ thuật khác và tạo ra kết quả tương tự. Làm cho điều này đúng giúp tôi chơi golf câu trả lời nhiều hơn một chút.

Về cơ bản, ruby ​​có nó ngắn hơn vì chỉ số mảng được bao gồm, python cần một phần +1bù.

Giải trình

Lấy 2 mảng (hàng xóm dọc và ngang), sau đó chọn một hoặc cả hai dựa trên một số tính toán.

Java 7, 63 byte (mã hóa cứng)

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

Được lập chỉ mục 0
(Đầu ra thứ tự đảo ngược vì 024và 046không phải là số nguyên hợp lệ.)
Vẫn hoạt động trên phiên bản không được mã hóa cứng, nhưng tôi có thể đảm bảo với bạn rằng nó sẽ không ngắn hơn ..

Hãy thử nó ở đây.

82 byte

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

1 chỉ mục
dựa trên câu trả lời C của @Steadybox

Hãy thử nó ở đây.

JavaScript + lodash, 71 byte

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

Hàng loạt, 116 byte

@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

Chỉ số 0.