Поширена проблема орієнтуватися в 2D матриці. Ми бачили це багато разів і знову побачимо. Тож давайте допоможемо майбутнім нам і розробимо найкоротші рішення для створення всіх восьми можливих кроків у 2D матриці.

Виклик

Ваш код повинен виводити наступні 8 пар -1,0,1 у будь-якому порядку:

(0,1)
(0,-1)
(1,0)
(-1,0)
(1,1)
(1,-1)
(-1,1)
(-1,-1)

Правила

1. Введення немає.
2. Порядок виводу не має значення
3. Вихід є гнучким. Пари чисел просто потрібно відрізняти
4. Це код-гольф , тому найкоротша відповідь у байтах виграє

Октава , 24 байти

dec2base([0:3,5:8],3)-49

Спробуйте в Інтернеті!

Я ще не бачив такого підходу.

Створює список цілих чисел [0, 1, 2, 3, 5, 6, 7, 8]і перетворює його на потрійні, повертаючи масив символів:

00
01
02
10
12
20
21
22

Віднімання 49(значення ASCII для 1) з усіх символів дає числовий масив:

-1  -1
-1   0
-1   1
 0  -1
 0   1
 1  -1
 1   0
 1   1

T-SQL, 80 78 байт

SELECT-1n INTO t;INSERT t VALUES(0),(1)SELECT*FROM t,t z WHERE t.n<>0OR z.n<>0

Створює (постійну) таблицю t, що містить (-1,0,1), і виконує самостійне з'єднання з WHEREпропозицією, яка виключає 0,0рядок. Таблиця t не очищена моїм кодом, ви повинні залишити її самостійно.

На жаль майже вдвічі довше, ніж нудне рішення ( 44 байти ), оскільки SQL дозволяє повертати в рядках:

PRINT'0,1
0,-1
1,0
-1,0
1,1
1,-1
-1,1
-1,-1'

Pure Bash (без зовнішніх утиліт), 36

a=({0,-1,1},{0,-1,1})
echo ${a[@]:1}

Спробуйте в Інтернеті!

Баш з Седом, 35

printf %s\\n {-1..1},{-1..1}|sed 5d

Спробуйте в Інтернеті!

Python 2 , 33 байти

i=9;exec"print-i%3-1,i/5;i-=2;"*8

Спробуйте в Інтернеті!

Денніс врятував 3 5 байт, ух. Спасибі!

Желе , 8 7 6 байт

3p_2ẸƇ

Спробуйте в Інтернеті!

Моя перша в історії відповідь Желе! Велика подяка Деннісу за фінальну частину головоломки.

Тепер давайте подивимось, чи можу я пояснити це ... хаха.

3p_2ẸƇ   Main program, takes no input.
3p       Product with Range 3, yields [[1,1], [1,2], [1,3], [2,1], [2,2], ...]
  _2     Decrement twice, vectorizes, yields [[-1,-1], [-1,0], [-1,1], [0,-1], ...]
    ẸƇ   Comb, removes those that contain only falsey values, the [0,0]
         Implicit output

-1 байт завдяки Еріку; -1 байт завдяки панові Xcoder та Деннісу

R , 26 24 байти

Кредити @JDoe за збереження ще двох байтів при прямому підході:

paste(-1:1,-3:5%/%3)[-5]

Спробуйте в Інтернеті!

Початковий відповідь:

outer(-1:1,-1:1,paste)[-5]

Спробуйте в Інтернеті!

Або на 27 байт

sapply(-1:1,paste,-1:1)[-5]

Спробуйте в Інтернеті!

Або на 34 байти з коефіцієнтами:

(gl(3,3,,-1:1):gl(3,1,9,-1:1))[-5]

Спробуйте в Інтернеті!

Останнє рішення може бути найкращим, якщо вихід може бути від 1 до 3, а не від -1 до 1.

Дивіться іншу відповідь R щодо альтернативних рішень із expand.gridабо з cbind.

Japt , 13 12 11 байт

Збережено байт завдяки @Shaggy

9ó8_ìJõ é)Å

Спробуйте в Інтернеті! Використовує -Rпрапор, щоб розмістити кожен елемент у своєму рядку.

Пояснення

9ó8_ìJõ é)Å
9ó8             Create the range [9, 9+8). [9, 10, ..., 16]
   _            Map each item in this range through this function:
     Jõ é)        Generate the range [-1...1] and rotate to get [1, -1, 0].
    ì             Convert the item to an array of base-3 digits,
                  mapping [0,1,2] to [1,-1,0]. [[-1, 1, 1], [-1, 1,-1], [-1, 1, 0],
                                                [-1,-1, 1], [-1,-1,-1], [-1,-1, 0],
                                                [-1, 0, 1], [-1, 0,-1]]
          Å       Remove the first item (gets rid of the leading -1).

Japt -Q , 15 13 байт

Я впевнений, що існує коротший шлях, але мені сподобався такий підхід.

##ü80ì3 mÉ ò
##ü80        // Take 14425280
     ì3      // and turn it into an array of base-3 numbers.
        mÉ   // Subtract one from each digit
           ò // and then split them pairwise.

Поголив два байти завдяки Шаггі .

Спробуйте в Інтернеті!

Хаскелл , 22 байти

_:l=mapM(:[1,-1])[0,0]

Спробуйте в Інтернеті!

Лайконі врятував 1 байт.

Perl 6 , 23 байти

{(1,-1,0 X 1,-1,0)[^8]}

Спробуйте в Інтернеті!

05AB1E , 8 7 байт

2Ý<ãʒĀZ

Спробуйте в Інтернеті!

Пояснення

2Ý<     # Range of 2 decremented, yields [-1, 0, 1]
   ã    # Cartesian product of the list with itself
    ʒ   # Filter by ...
     ĀZ # Maximum of the truthified values, yields 0 only if both values are 0.

-1 байт дякую Еміньї!

MATL , 12 байт

9:q4X-3YA49-

Спробуйте в Інтернеті!

Оскільки MATL місяць, ось MATL порт відповіді @ Otave Stewie. Послідовність [0 1 2 3 5 6 7 8] формується у вигляді множинної різниці між [0 ... 8] і 4.

Java 8, 83 42 байти

v->"1,1 1,0 1,-1 0,1 0,-1 -1,1 -1,0 -1,-1"

-41 байт завдяки @AdmBorkBork жорстким кодуванням ..

Спробуйте в Інтернеті.

Версія, що не є твердим кодом ( 83 72 70 68 байт ):

v->{for(int i=9;i-->1;)System.out.println(~i%3+1+","+(~(i/3)%3+1));}

-11 байт завдяки @ OlivierGrégoire .
-2 байт створення порту @ETHproductions JavaScript (ES6) відповідь «и .

Спробуйте в Інтернеті.

R , 27 байт

expand.grid(-1:1,-1:1)[-5,]

Спробуйте в Інтернеті!

30 і 35 байт:

cbind(-1:1,rep(-1:1,e=3))[-5,]
expand.grid(rep(list(-1:1),2))[-5,]

JavaScript (ES6)

Два альтернативних методу, обидва довші, ніж жорстке кодування.

49 байт

_=>[...'11202200'].map((n,i,a)=>[~-n,~-a[i+3&7]])

Спробуйте в Інтернеті!

51 байт

f=(n=1679887e3)=>n?[n%4-1,~-(n/4%4)]+' '+f(n>>4):''

Спробуйте в Інтернеті!

Haskell , 27 байт

tail$(,)<$>t<*>t
t=[0,1,-1]

Спробуйте в Інтернеті!

Вихід є [(0,1),(0,-1),(1,0),(1,1),(1,-1),(-1,0),(-1,1),(-1,-1)].

Haskell , 28 27 байт

tail.mapM id$[0,1,-1]<$"ao"

Спробуйте в Інтернеті!

Лушпиння , 7 6 байт

Існує багато різних способів (хитра / затратна частина позбавляється [0,0]), 7 байт - найкоротший, який я міг придумати, завдяки Леву за те, що вказав на використання десяткового перетворення ( d) як фільтр:

fdπ2ṡ1

Спробуйте в Інтернеті!

Пояснення

fdπ2ṡ1  -- constant function (expects no arguments)
    ṡ1  -- symmetric range [-n..n]: [-1,0,1]
  π2    -- cartesian power of 2: [[-1,-1],[-1,0],[0,-1],[-1,1],[0,0],[1,-1],[0,1],[1,0],[1,1]]
f       -- filter only elements that are truthy when
 d      -- | decimal conversion (interpret as polynomial and evaluate at x=10)
        -- : [[-1,-1],[-1,0],[0,-1],[-1,1],[1,-1],[0,1],[1,0],[1,1]]

Альтернативно, 7 байт

tπ2ṙ1ṡ1

Спробуйте в Інтернеті!

Пояснення

tπ2ṙ1ṡ1  -- constant function (expects no arguments)
     ṡ1  -- symmetric range [-n..n]: [-1,0,1]
   ṙ1    -- rotate by 1: [0,1,-1]
 π2      -- cartesian power of 2: [[0,0],[0,1],[1,0],[0,-1],[1,1],[-1,0],[1,-1],[-1,1],[-1,-1]]
t        -- tail: [[0,1],[1,0],[0,-1],[1,1],[-1,0],[1,-1],[-1,1],[-1,-1]]

PowerShell , 41 байт

(1..-1|%{$i=$_;1..-1|%{"$i,$_"}})-ne'0,0'

Спробуйте в Інтернеті!

Двічі цикл за діапазоном 1..-1, з -nOt eQuals в кінці кінців , щоб витягнути сторонній 0,0елемент. Їх поодинці залишають на конвеєрі, і неявна Write-outputпри завершенні програми надає нам нові лінії безкоштовно.

На жаль, тільки вихідний рядок баребонів на два байти коротший:

'1,1
1,0
1,-1
0,1
0,-1
-1,1
-1,0
-1,-1'

Але це нудно.

Python 2 , 39 байт

n=6;exec'n+=~(n==2);print n/3,n%3-1;'*8

Спробуйте в Інтернеті!

J , 18 16 байт

echo}.,{;~0 1 _1

Спробуйте в Інтернеті!

CJam , 13 байт

3,:(2m*{2b},`

Спробуйте в Інтернеті!

Пояснення

3,    e# Range [0,3):       [0 1 2]
:(    e# Decrement each:    [-1 0 1]
2m*   e# Cartesian square:  [[-1 -1] [-1 0] [-1 1] [0 -1] [0 0] [0 1] [1 -1] [1 0] [1 1]]
{     e# Filter by
 2b   e#   conversion to binary:
},    e#                    [[-1 -1] [-1 0] [-1 1] [0 -1] [0 1] [1 -1] [1 0] [1 1]]
`     e# Stringify:         "[[-1 -1] [-1 0] [-1 1] [0 -1] [0 1] [1 -1] [1 0] [1 1]]"

Befunge-93 , 24 байти

11#v91090~9~19~<
9.._@#,

Спробуйте в Інтернеті!

Я відчуваю, що в цьому виклику відсутні відповіді з 2D мов, навіть якщо більшість не рухається по діагоналі. Це виводить пробіли, розділені числами, кожна пара розділена вкладками.

F # (моно) , 54 байти

let f=Seq.where((<>)(0,0))(Seq.allPairs[-1..1][-1..1])

Спробуйте в Інтернеті!

44 байти - завдяки Лайконі:

let f=Seq.tail(Seq.allPairs[0;-1;1][0;-1;1])

Брахілог , 8 байт

Ċ{ṡᵐ≜}ᶠb

Спробуйте в Інтернеті!

Пояснення

Ċ           Couple: take a list of two elements [A,B]
 {   }ᶠ     Find all…
    ≜         …possible values of…
  ṡᵐ          …signs of A and B
       b    Behead: remove the first one which is [0,0]

MATL , 12 байт

3:qq2Z^[]5Y(

Спробуйте в MATL Online!

Моя перша в історії серйозна відповідь MATL! Велике спасибі Луїсу Мендо , Санчісе і DJMcMayhem за допомогу.

Як це працює

3: qq2Z ^ [] 5Y (- Повна програма. Виводи в STDOUT.
3: - Діапазон 3. Натисніть [1 2 3] до стеку.
  qq - зменшення на 2. Врожайність [-1 0 1].
    2Z ^ - декартова сила 2.
         5Y (- Замініть рядок в індексі 5 на ...
       [] - порожній вектор.

Perl 5 , 31 байт

map/1/&&say,<{-1,0,1},{-1,0,1}>

Спробуйте в Інтернеті!

Баш , 30 байт

echo "
"{-1..1},{-1..1}|grep 1

Спробуйте в Інтернеті!

Друкує пробіл у кожному рядку, але останній. (Завдяки @Neil - це оригінально надруковано провідний простір, але кращий простір кращий відповідно до їх коментаря)

Пакет, 77 байт

@for %%x in (-1 0 1)do @for %%y in (-1 0 1)do @if not %%x%%y==00 echo %%x %%y

63 байти, якщо нестандартний роздільник дозволений:

@for %%x in (-1/-1 -1/0 -1/1 0/-1 0/1 1/-1 1/0 1/1)do @echo %%x

Pyth, 11 9 байт

t^+U2_1 2

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

Пояснення

t^+U2_1 2
  +U2_1     [0, 1, -1]
 ^      2   Product with itself.
t           Exclude the first.

Еквівалентно ми могли б скористатися t*J+U2_1J, але це не короткіше.