2B matris içinde gezinmek yaygın bir sorundur. Bunu birçok kez gördük ve tekrar göreceğiz. Öyleyse bize gelecekteki yardımcı olalım ve 2D matristeki sekiz adımın tümünü oluşturmak için en kısa çözümleri geliştirelim.

Meydan okuma

Kodunuz, herhangi bir sırada aşağıdaki -1,0,1 çiftini çıkarmalıdır:

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

kurallar

1. Giriş yok.
2. Çıktı siparişi alakalı değil
3. Çıktı esnektir. Sayı çiftlerinin sadece ayırt edilebilir olmaları gerekir
4. Bu kod golf , bayt cinsinden çok kısa cevap

Oktav , 24 bayt

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

Çevrimiçi deneyin!

Bu yaklaşımı henüz görmedim.

Bir tamsayı listesi oluşturur [0, 1, 2, 3, 5, 6, 7, 8]ve bir karakter dizisini döndürerek üçlüye dönüştürür:

00
01
02
10
12
20
21
22

Tüm karakterlerden çıkarma 49(ASCII-değeri 1), sayısal bir dizi verir:

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

T-SQL, 80 78 bayt

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

T içeren (kalıcı) bir tablo oluşturur ve satırı hariç tutan (-1,0,1)bir WHEREcümle ile birleştirme işlemini gerçekleştirir 0,0. Tablo t kodumla temizlenmedi, kendin bırakmalısın.

Ne yazık ki, sıkıcı çözümden ( 44 bayt ) neredeyse iki kat daha fazla , çünkü SQL dizgelerde geri dönüyor:

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

Saf Bash (harici yardımcı program yoktur), 36

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

Çevrimiçi deneyin!

Sed ile Baş , 35

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

Çevrimiçi deneyin!

Python 2,33 bayt

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

Çevrimiçi deneyin!

Dennis, 3 5 bayt kurtardı , vay. Teşekkürler!

Jöle , 8 7 6 bayt

3p_2ẸƇ

Çevrimiçi deneyin!

Benim ilk Jelly cevabım! Bulmacanın son parçası için Dennis'e çok teşekkür ederim.

Şimdi, açıklayabilir miyim bir bakalım ... lol.

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

Erik sayesinde -1 bayt; Bay Xcoder ve Dennis sayesinde -1 bayt

R , 26 24 bayt

Doğrudan bir yaklaşımla iki bayttan daha fazla tasarruf etmek için @JDoe’ya verilen krediler:

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

Çevrimiçi deneyin!

Orijinal cevap:

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

Çevrimiçi deneyin!

Veya 27 bayt için

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

Çevrimiçi deneyin!

Veya faktörlere sahip 34 bayt için:

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

Çevrimiçi deneyin!

Bu son çözüm, çıktı -1 ile 1 yerine 1 - 3 olabilirse en hızlı çözüm olabilir.

İle veya arasında alternatif çözümler için diğer R cevabına bakınız .expand.gridcbind

Japt , 13 12 11 bayt

@Shaggy sayesinde bir bayt kaydedildi

9ó8_ìJõ é)Å

Çevrimiçi deneyin! -RHer öğeyi kendi satırına koymak için bayrak kullanır .

açıklama

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 bayt

Eminim daha kısa bir yol var, ama bu yaklaşımı sevdim

##ü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 sayesinde iki byte tıraş edildi .

Çevrimiçi deneyin!

Haskell , 22 bayt

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

Çevrimiçi deneyin!

Laikoni 1 byte tasarruf etti.

Perl 6 , 23 bayt

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

Çevrimiçi deneyin!

05AB1E , 8 7 bayt

2Ý<ãʒĀZ

Çevrimiçi deneyin!

açıklama

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.

Emigna sayesinde -1 bayt!

MATL , 12 bayt

9:q4X-3YA49-

Çevrimiçi deneyin!

Çünkü bu MATL ay, işte @ Stewie'nin Octave cevabının MATL limanı. [0 1 2 3 5 6 7 8] sekansı [0 ... 8] ve 4 arasındaki set farkı olarak üretilir.

Java 8, 83 42 bayt

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

-41 byte, @AdmBorkBork ile kodlama sayesinde .

Çevrimiçi deneyin.

Referans olarak kodlanmış olmayan versiyon ( 83 72 70 68 bayt ):

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

@ OlivierGrégoire sayesinde -11 bayt .
-2 byte @ETHproductions'un JavaScript (ES6) cevabını içeren bir bağlantı noktası oluşturuyor .

Çevrimiçi deneyin.

R , 27 bayt

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

Çevrimiçi deneyin!

30 ve 35 bayt:

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

JavaScript (ES6)

Her ikisi de kodlamadan daha uzun olan iki alternatif yöntem.

49 bayt

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

Çevrimiçi deneyin!

51 bayt

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

Çevrimiçi deneyin!

Haskell , 27 bayt

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

Çevrimiçi deneyin!

Çıktı [(0,1),(0,-1),(1,0),(1,1),(1,-1),(-1,0),(-1,1),(-1,-1)].

Haskell , 28 27 bayt

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

Çevrimiçi deneyin!

Kabuğu , 7 6 bayt

Bir sürü farklı yol var (zorlu / pahalı olan kısım kurtuluyor [0,0]), 7 bayt, filtre olarak ondalık dönüştürmeyi ( ) kullanmak için işaret ettiği için Leo sayesinde en kısa sürede bulabildiğimd :

fdπ2ṡ1

Çevrimiçi deneyin!

açıklama

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]]

Alternatif, 7 bayt

tπ2ṙ1ṡ1

Çevrimiçi deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

Çift için aralığında döngü 1..-1, bir ile -not esonunda quals yabancı dışarı çekmek için 0,0girdiyi. Her biri boru hattında ayrı ayrı bırakılmıştır ve Write-outputprogram bitiminde örtük olan bize ücretsiz yeni çizgiler verir.

Ne yazık ki, yalnızca barebones dize çıkışı iki bayt daha kısadır:

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

Ama bu çok sıkıcı.

Python 2,39 bayt

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

Çevrimiçi deneyin!

J , 18 16 bayt

echo}.,{;~0 1 _1

Çevrimiçi deneyin!

CJam , 13 bayt

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

Çevrimiçi deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

Birçoğunun çapraz hareket etmemesine rağmen, bu zorluğun 2B dillerden gelen cevapların eksik olduğunu hissediyorum. Bu, her bir çift sekmelerle ayrılmış, aralıkla ayrılmış sayılar verir.

F # (Mono) , 54 bayt

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

Çevrimiçi deneyin!

44 bayt - Laikoni sayesinde:

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

Brachylog , 8 bayt

Ċ{ṡᵐ≜}ᶠb

Çevrimiçi deneyin!

açıklama

Ċ           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 bayt

3:qq2Z^[]5Y(

MATL Online'da deneyin!

Benim ilk ciddi MATL cevabım! Yardım için Luis Mendo , Sanchises ve DJMcMayhem'e çok teşekkürler .

Nasıl çalışır

3: qq2Z ^ [] 5Y (- Tam program. STDOUT çıkışına gönderir.
3: - Aralık 3. [1 2 3] yığına itin.
  qq - 2 ile azaltma. Verim [-1 0 1].
    2Z ^ - 2'nin kartezyen gücü.
         5Y (- Dizin 5'teki satırı değiştirin ...
       [] - Boş bir vektör.

Perl 5 , 31 bayt

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

Çevrimiçi deneyin!

Bash , 30 bayt

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

Çevrimiçi deneyin!

Her satıra ancak sonuncusuna bitişik bir boşluk yazdırır. ( @Neil'e teşekkürler - bu başlangıçta öncülük eden bir alan yazdırdı, ancak takip eden bir alan yorumlarına göre daha iyi)

Toplu, 77 bayt

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

Standart olmayan bir ayraca izin verilirse 63 bayt:

@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 bayt

t^+U2_1 2

Burada dene

açıklama

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

Eşdeğerde kullanabiliriz t*J+U2_1J, ama bu daha kısa değil.