2Dマトリックス内をナビゲートすることは一般的な問題です。私たちは何度も見てきましたが、また見ます。それでは、将来の私たちを助け、2Dマトリックスで可能な8つのステップすべてを生成する最短のソリューションを開発しましょう。

チャレンジ

コードは、次の8ペアの-1,0,1を任意の順序で出力する必要があります。

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

ルール

1. 入力はありません。
2. 出力順序は関係ありません
3. 出力は柔軟です。数字のペアは区別できる必要があります
4. これはcode-golfなので、バイト単位の最短回答が勝ちます

オクターブ、24バイト

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

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

私はまだこのアプローチを見ていません。

整数のリストを作成し、[0, 1, 2, 3, 5, 6, 7, 8]3進数に変換して、文字配列を返します。

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)して自己結合を実行します。テーブルtはコードによってクリーンアップされません。自分で削除する必要があります。WHERE0,0

悲しいことに、SQLは文字列でのリターンを許可しているため、退屈なソリューション（44バイト）のほぼ2倍の長さです。

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}

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

Sedでバッシュ、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バイト。Xcoder氏とDennis氏のおかげで-1バイト

R、 26 24バイト

直接的なアプローチでさらに2バイトを節約した@JDoeの功績：

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

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

元のasnwer：

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から1ではなく1から3である可能性がある場合、この最後の解決策は最もゴルファーかもしれません。

またはの代替ソリューションについては、他のRの回答を参照してください。expand.gridcbind

Japt、13 12 11バイト

@Shaggyのおかげで1バイト節約

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.

Shaggyのおかげで2バイト削られました。

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

Haskell、22バイト

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

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

Laikoniは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月なので、@ StewieのOctaveの回答のMATLポートを以下に示します。シーケンス[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"

ハードコーディングによる@AdmBorkBorkのおかげで-41バイト。

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

参照としてハードコーディングされていないバージョン（83 72 70 68バイト）：

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

@OlivierGrégoireのおかげで-11バイト。
-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）

ハードコーディングよりも長い2つの代替方法。

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]）、10バイト変換（）をフィルターとして使用することを指摘してくれたLeoのおかげで、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 e余分引き出す終わりQUALS 0,0エントリーを。それらはそれぞれ個別にパイプラインに残され、Write-outputプログラムの完了時に暗黙的に改行を無料で提供します。

残念ながら、ベアボーン文字列の出力は2バイト短くなっています。

'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バイト-Laikoniのおかげ：

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

Brachylog、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回答！多くのおかげでルイスMendo、Sanchisesと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、それより短くなることはありません。