Добре, моя друга спроба кодового гольфу, давайте подивимося, як це відбувається.

Зробіть вигляд, що у вас є масив з 9 значень. Тепер уявіть цей масив у сітці 3х3.

Потрібно повернути сусідам, яке число має як індекси масиву.

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]

Математика, 32 байти

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

Використовує графік замість масиву. GridGraph@{3,3}будує графік розміром 3х3, показаний нижче, який Mathematica корисно позначає цифрами 1–9 для вершин за замовчуванням. Потім ~AdjacencyList~#&повідомляє вам сусідів вершини.

Математика, 40 байт

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

1-індексований. Просто шукає відповідь. Чи може хтось краще в математиці?

Октава, 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

(В Octave дані зберігаються в стовпцях.)

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 3повертає [2,6].

Редагувати: Збережено 3 6 байт завдяки Ørjan Johansen!

Для 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 масиви з вертикальними та горизонтальними сусідами, а потім виберіть один або декілька з них.

Рубіновий жорсткий код, 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 , мені здалося, що це цікаво, оскільки це здебільшого той самий код, використовуючи інший трюк, і дає такий же результат. Отримати це право допомогло мені гольф рубін відповідь трохи більше.

В основному, рубін має його коротше, оскільки індекс фрагментів масиву включений, 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-індексовано
на основі відповіді C @ @Steadybox

Спробуйте тут.

JavaScript + лодаш, 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-індексований.