Etapas ortodiagonais


26

É um problema comum navegar em uma matriz 2D. Já vimos isso muitas vezes e veremos novamente. Então, vamos nos ajudar no futuro e desenvolver as soluções mais curtas para gerar todas as oito etapas possíveis em uma matriz 2D.

Desafio

Seu código deve gerar os seguintes 8 pares de -1,0,1 em qualquer ordem:

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

Regras

  1. Não há entrada.
  2. A ordem de saída não é relevante
  3. A saída é flexível. Pares de números só precisam ser distinguíveis
  4. Isso é , então a resposta mais curta em bytes ganha

2
@MartinEnder Eu também tinha 99% de certeza disso, mas também não encontrei. Coloquei-o na sandbox por alguns dias, mas ninguém comentou sobre duplicidade.
Gambá morto

4
Por causa da saída flexível, acaba por haver um sabor interessante da complexidade de Kolmogorov. Alguns idiomas acham mais difícil do que fazer melhor do que apenas codificar a saída. Essa tag deve ser adicionada?
ngm

1
@ Adám Sim, uso nada enquanto pares de números são distinguíveis
Morto Possum

1
@ Adám Mas e quanto (1 + 0i)?
Gambá morto

8
Esta é uma duplicata exata de 8 quadrados adjacentes , um dos primeiros códigos de golfe que eu já fiz.
Isaacg

Respostas:


19

Oitava , 24 bytes

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

Experimente online!

Ainda não vi essa abordagem.

Cria uma lista de números inteiros [0, 1, 2, 3, 5, 6, 7, 8]e a converte em ternário, retornando uma matriz de caracteres:

00
01
02
10
12
20
21
22

Subtrair 49(valor ASCII para 1) de todos os caracteres fornece uma matriz numérica:

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

9

T-SQL, 80 78 bytes

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

Cria uma tabela (permanente) t contendo (-1,0,1)e executa uma auto-junção com uma WHEREcláusula que exclui a 0,0linha. A tabela t não é limpa pelo meu código, você deve descartá-la.

Infelizmente, quase o dobro da solução chata ( 44 bytes ), pois o SQL permite retornos em strings:

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

Eu não conheço T-SQL tão bem: você pode usar apenas WHERE t.n OR z.n? (Você pode, em alguns, mas não todos os dialetos SQL.)
msh210

@ msh210 Boa ideia, tentei, mas não parece funcionar no MS SQL Server. Eu recebo o erro:An expression of non-boolean type specified in a context where a condition is expected
BradC 15/05

1
Você pode remover os espaços em torno do *
Razvan Socol



7

Gelatina , 8 7 6 bytes

3p_2ẸƇ

Experimente online!

Minha primeira resposta Jelly! Muito obrigado a Dennis pela peça final do quebra-cabeça.

Agora, vamos ver se consigo explicar ... rs.

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 byte graças a Erik; -1 byte graças ao Sr. Xcoder e Dennis


1
Resposta alterada com base nesta abordagem:3p3_2ẸƇ
Sr. Xcoder 14/05

@ Mr.Xcoder Você pode soltar o segundo 3.
Dennis

@ Dennis Oh, de fato. Neste caso, Adm pode atualizar com o 6-Byter :)
Mr. Xcoder

7

R , 26 bytes 24

Créditos ao @JDoe por salvar mais dois bytes com uma abordagem direta:

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

Experimente online!

O asnwer original:

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

Experimente online!

Ou por 27 bytes

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

Experimente online!

Ou para 34 bytes com fatores:

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

Experimente online!

Essa última solução pode ser a mais golfista se a saída puder ser de 1 a 3 em vez de -1 a 1.

Veja a outra resposta R para soluções alternativas com expand.gridou com cbind.


huh, bom uso do formato de saída flexível!
Giuseppe

2
Este é melhor que a minha, porque de como, em última análise inúteis é :)
ngm

@Giuseppe Originalmente eu tentei cque não fazem sentido dentro de uma matriz para transferido para pastee o formato de saída originais ...
Jayce


1
@ J.Doe você é demais!
Jayce

6

Japonês , 13 12 11 bytes

Guardou um byte graças a @Shaggy

9ó8_ìJõ é)Å

Experimente online! Usa -Rsinalizador para colocar cada item em sua própria linha.

Explicação

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).

6

Japonês -Q , 15 13 bytes

Tenho certeza de que há uma maneira mais curta, mas gostei dessa abordagem.

##ü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.

Raspou dois bytes graças a Shaggy .

Experimente online!


6

Haskell , 22 bytes

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

Experimente online!

Laikoni salvou 1 byte.


_:l=mapM(:[1,-1])[0,0]salva um byte. (Retirado da resposta de isaacg ao desafio anterior).
Laikoni

@Laikoni Então, eu considerei isso e pensei que seria um trecho (como muitas respostas para o antigo desafio). Mas combinar esse meta post com a regra de que funções podem ser definidas indiretamente, então isso parece estar correto. Obrigado pela sugestão.
Xnor


5

05AB1E , 8 7 bytes

2Ý<ãʒĀZ

Experimente online!

Explicação

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 byte graças a Emigna!


Dang, você me venceu. Teve o mesmo start ( 2Ý<ã), mas estava tentando descobrir como remover o elemento do meio da lista de pares. Não tinha pensado em classificar por valor absoluto e remover o primeiro .. +1 de mim.
Kevin Cruijssen

2
Use ʒĀZpara salvar 1
Emigna 15/05

@Emigna Obrigado por me fazer entender a diferença entre o regular e a versão 05AB1IE do comando truthified :-)
Kaldo

5

MATL , 12 bytes

9:q4X-3YA49-

Experimente online!

Como é o mês do MATL, aqui está uma porta MATL da resposta de @ Stewie Octave. A sequência [0 1 2 3 5 6 7 8] é gerada como a diferença definida entre [0 ... 8] e 4.


5

Java 8, 83 42 bytes

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

-41 bytes graças a @AdmBorkBork por codificação ..

Experimente online.


Versão não codificada como referência ( 83 72 70 68 bytes ):

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

-11 bytes graças a @ OlivierGrégoire .
-2 bytes criando uma porta da resposta JavaScript (ES6) do @ETHproductions .

Experimente online.


Resposta não codificados em bytes 72: v->{for(int i=9;i-->0;)if(i!=4)System.out.println((i/3-1)+","+(i%3-1));}.
Olivier Grégoire

@ OlivierGrégoire Obrigado, adicionado (e jogado por mais 2 bytes).
Kevin Cruijssen

4

R , 27 bytes

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

Experimente online!

30 e 35 bytes:

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

Alguma saída com aspecto desagradável, eu gosto: D Bom trabalho
Dead Possum

expand.grid(-1:1,-1:1)[-5,]tem 27 bytes.
Giuseppe

4

JavaScript (ES6)

Dois métodos alternativos, ambos mais longos que codificados.

49 bytes

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

Experimente online!

51 bytes

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

Experimente online!




4

Casca , 7 6 bytes

Existem várias maneiras diferentes (a parte complicada / cara está se livrando [0,0]), 7 bytes é o mais curto que consegui encontrar, graças ao Leo por apontar para usar a conversão decimal ( d) como um filtro:

fdπ2ṡ1

Experimente online!

Explicação

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

Alternativa, 7 bytes

tπ2ṙ1ṡ1

Experimente online!

Explicação

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

1
Outra alternativa de 7 bytes tπ2↑3İZ.
Laikoni

2
Você pode salvar um byte filtrando as listas com base na conversão decimal. Experimente on-line!
Leo

3

PowerShell , 41 bytes

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

Experimente online!

Laço duplo para o intervalo 1..-1, com um -not equals no final para retirar a 0,0entrada estranha . Cada um deles é deixado individualmente no pipeline e, implícito Write-outputna conclusão do programa, oferece novas linhas gratuitamente.


Infelizmente, apenas a saída da string de barebones é dois bytes mais curta:

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

Mas isso é chato.




3

CJam , 13 bytes

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

Experimente online!

Explicação

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

3

Befunge-93 , 24 bytes

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

Experimente online!

Sinto que esse desafio está faltando respostas das linguagens 2D, mesmo que a maioria não se mova na diagonal. Isso gera números separados por espaço, cada par separado por tabulações.



3

Braquilog , 8 bytes

Ċ{ṡᵐ≜}ᶠb

Experimente online!

Explicação

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

3

MATL , 12 bytes

3:qq2Z^[]5Y(

Experimente no MATL Online!

Minha primeira resposta séria ao MATL! Muito obrigado a Luis Mendo , Sanchises e DJMcMayhem pela ajuda.

Como funciona

3: qq2Z ^ [] 5Y (- Programa completo. Saídas para STDOUT.
3: - Faixa 3. Pressione [1 2 3] para a pilha.
  qq - Decrementa em 2. Rende [-1 0 1].
    2Z ^ - Potência cartesiana de 2.
         5Y (- Substitua a linha no índice 5 por ...
       [] - um vetor vazio.


3

Bash , 30 bytes

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

Experimente online!

Imprime um espaço à direita em cada linha, exceto a última. (Graças a @Neil - isso originalmente imprimiu um espaço à esquerda, mas um espaço à direita é melhor conforme o comentário)


Eu acho que você pode imprimir um espaço à direita em tudo, exceto na última linha, como alternativa.
Neil

2

Lote, 77 bytes

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

63 bytes se um separador fora do padrão for permitido:

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

2

Pitão, 11 9 bytes

t^+U2_1 2

Experimente aqui

Explicação

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

Equivalentemente, poderíamos usar t*J+U2_1J, mas isso não é mais curto.

Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.