¡Haz que explote!

33

¡Toma una matriz de enteros positivos como entrada y haz que explote!


La forma en que explota una matriz es simplemente agregando ceros alrededor de cada elemento, incluidos los bordes exteriores.

¡Los formatos de entrada / salida son opcionales como siempre!

Casos de prueba:

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

1 4
5 2
-----
0 0 0 0 0
0 1 0 4 0
0 0 0 0 0
0 5 0 2 0
0 0 0 0 0
--------------

1 4 7
-----
0 0 0 0 0 0 0
0 1 0 4 0 7 0
0 0 0 0 0 0 0
--------------

6
4
2
-----
0 0 0
0 6 0
0 0 0
0 4 0
0 0 0
0 2 0
0 0 0
Stewie Griffin
fuente

Respuestas:

59

Lenguaje de script Operation Flashpoint , 182 bytes

f={t=_this;c=count(t select 0);e=[0];i=0;while{i<c*2}do{e=e+[0];i=i+1};m=[e];i=0;while{i<count t}do{r=+e;j=0;while{j<c}do{r set[j*2+1,(t select i)select j];j=j+1};m=m+[r,e];i=i+1};m}

Sin golf:

f=
{
  // _this is the input matrix. Let's give it a shorter name to save bytes.
  t = _this;
  c = count (t select 0);

  // Create a row of c*2+1 zeros, where c is the number of columns in the
  // original matrix.
  e = [0];
  i = 0;
  while {i < c*2} do
  {
    e = e + [0];
    i = i + 1
  };

  m = [e]; // The exploded matrix, which starts with a row of zeros.
  i = 0;
  while {i < count t} do
  {
    // Make a copy of the row of zeros, and add to its every other column 
    // the values from the corresponding row of the original matrix.
    r = +e;
    j = 0;
    while {j < c} do
    {
      r set [j*2+1, (t select i) select j];
      j = j + 1
    };

    // Add the new row and a row of zeroes to the exploded matrix.
    m = m + [r, e];
    i = i + 1
  };

  // The last expression is returned.
  m
}

Llamar con:

hint format["%1\n\n%2\n\n%3\n\n%4",
    [[1]] call f,
    [[1, 4], [5, 2]] call f,
    [[1, 4, 7]] call f,
    [[6],[4],[2]] call f];

Salida:

En el espíritu del desafío:

Steadybox
fuente
66
Desconocido; hombre; mil.
MooseBoys
2
Ahora estoy confundido
Grajdeanu Alex.
@MrGrj El comando literalmente hace explotar algo
1
¡+1 para el segundo gif " En el espíritu del desafío "! :)
Kevin Cruijssen
10

Jalea ,  12  11 bytes

-1 byte gracias a Erik the Outgolfer (no es necesario usar argumentos intercambiados para una unión)

j00,0jµ€Z$⁺

Pruébalo en línea! O ver un conjunto de pruebas .

Un enlace monádico que acepta y devuelve listas de listas.

¿Cómo?

j00,0jµ€Z$⁺ - Link: list of lists, m
          ⁺ - perform the link to the left twice in succession:
         $  -   last two links as a monad
      µ€    -     perform the chain to the left for €ach row in the current matrix:
j0          -       join with zeros                [a,b,...,z] -> [a,0,b,0,...,0,z]
  0,0       -       zero paired with zero = [0,0]
     j      -       join                     [a,0,b,0,...,0,z] -> [0,a,0,b,0,...,0,z,0]
        Z   -     and then transpose the resulting matrix
Jonathan Allan
fuente
Puede guardar un byte:j00,0jµ€Z$⁺
Erik the Outgolfer
¡Oh, por supuesto, gracias!
Jonathan Allan
6

MATL , 12 bytes

FTXdX*0JQt&(

La entrada es una matriz con un ;separador de filas.

Pruébalo en línea!

Explicación

FT     % Push [0 1]
Xd     % Matrix with that diagonal: gives [0 0; 0 1]
X*     % Implicit input. Kronecker product
0      % Push 0
JQt    % Push 1+j (interpreted as "end+1" index) twice
&(     % Write a 0 at (end+1, end+1), extending the matrix. Implicit display
Luis Mendo
fuente
5

Japt , 18 bytes

Ov"y ®î íZ c p0Ã"²

¡Pruébalo en línea! (Utiliza el -Qindicador para que la salida sea más fácil de entender).

Similar a la respuesta de Jelly, pero mucho más ...

Explicación

La parte externa del código es solo una solución alternativa para simular Jelly's :

  "             "²   Repeat this string twice.
Ov                   Evaluate it as Japt.

El código en sí es:

y ®   î íZ c p0Ã
y mZ{Zî íZ c p0}   Ungolfed
y                  Transpose rows and columns.
  mZ{          }   Map each row Z by this function:
     Zî              Fill Z with (no argument = zeroes).
        íZ           Pair each item in the result with the corresponding item in Z.
           c         Flatten into a single array.
             p0      Append another 0.

Repetido dos veces, este proceso da el resultado deseado. El resultado se imprime implícitamente.

ETHproducciones
fuente
5

Casco , 12 bytes

₁₁
Tm»o:0:;0

Toma y devuelve una matriz de enteros 2D. Pruébalo en línea!

Explicación

La misma idea que en muchas otras respuestas: agregue ceros a cada fila y transponga, dos veces. La operación de fila se implementa con un pliegue.

₁₁         Main function: apply first helper function twice
Tm»o:0:;0  First helper function.
 m         Map over rows:
  »         Fold over row:
   o         Composition of
      :       prepend new value and
    :0        prepend zero,
       ;0    starting from [0].
            This inserts 0s between and around elements.
T          Then transpose.
Zgarb
fuente
5

Mathematica, 39 bytes

r=Riffle[#,0,{1,-1,2}]&/@Thread@#&;r@*r

¡Pruébalo en el sandbox de Wolfram! Llámalo como " r=Riffle[#,0,{1,-1,2}]&/@Thread@#&;r@*r@{{1,2},{3,4}}".

Al igual que muchas otras respuestas, esto funciona mediante la transposición y el riffing de ceros en cada fila y luego haciendo lo mismo nuevamente. Inspirado por la respuesta Jelly de Jonathan Allan específicamente, pero solo porque vi esa respuesta primero.

No un arbol
fuente
4

Dyalog APL, 24 bytes

4 bytes guardados gracias a @ZacharyT

5 bytes guardados gracias a @KritixiLithos

{{⍵↑⍨-1+⍴⍵}⊃⍪/,/2 2∘↑¨⍵}

Pruébalo en línea!

Uriel
fuente
No necesitas padres alrededor del 1,1,⍴⍵, ¿verdad?
Zacharý
Entiendo esto: {{⍵↑⍨-1 1+⍴⍵}⊃⍪/,/2 2∘↑¨⍵}a los 26 años
Kritixi Lithos
@KritixiLithos buen uso de 1 1+!
Uriel
La matriz de APL está orientada, ¿ 1+funcionaría?
Zacharý
@ZacharyT Me acabo de dar cuenta de que después de ver tu respuesta ...
Kritixi Lithos
3

Python 3 , 104101 97 93 86 bytes

  • @Zachary T guardó 3 bytes: variable no utilizada w eliminó la y un espacio no deseado
  • @Zachary T guardó otros 4 bytes: [a,b]como soloa,b agregar a una lista
  • @nore guardó 4 bytes: uso de segmentación
  • @Zachary T y @ovs ayudaron a guardar 7 bytes: apretando las declaraciones en el bucle for
def f(a):
 m=[(2*len(a[0])+1)*[0]]
 for i in a:r=m[0][:];r[1::2]=i;m+=r,m[0]
 return m

Pruébalo en línea!

officialaimm
fuente
1
Puede eliminar wy guardar 2 bytes: repl.it/JBPE
Zacharý
1
Oh, tienes un espacio innecesario después de la líneam+=[r,w]
Zacharý
1
Además, ¿puede guardar 4 bytes cambiando [j,0]a j,0y [r,m[0]para r,m[0]?
Zacharý
1
Puede guardar otros 4 bytes utilizando segmentos de matriz .
nore
1
Puede guardar tres bytes convirtiendo a python2 y cambiando la forsangría del bucle a una sola pestaña.
Zacharý
3

Python 3, 118 bytes

def a(b):
    z='00'*len(b[0])+'0'
    r=z+'\n'
    for c in b:
        e='0'
        for d in c:e+=str(d)+'0'
        r+=e+'\n'+z+'\n'
    return r

Primera vez jugando al golf! No es el mejor, ¡pero estoy muy orgulloso si puedo decirlo yo mismo!

  • -17 bytes de comentarios de trigo
  • -4 bytes desde la línea del segundo bucle for
Liren
fuente
Hola y bienvenidos al sitio. Parece que tienes mucho espacio en blanco aquí. Por ejemplo, algunos de sus +=y =están rodeados de espacios, que se pueden eliminar. Además, hacer +=dos veces seguidas podría simplificarse en una sola declaración, por ejemploe+=str(d)+'0'
Wheat Wizard el
@WheatWizard: Gracias y gracias. Guardado 17 bytes :)
Liren
Ahora me doy cuenta de que puede colapsar su forbucle interno en una sola línea for d in c:e+=str(d)+'0', pero es posible que desee ir con un mapa de unión (str, d)) + '0' , in which case it becomes pointless to define e` en absoluto.
Wheat Wizard
1
Ah, solo pensé en eso yo mismo! Hmm, tendré que aprender qué es .join y map () es lo primero, supongo. ¡Vuelvo enseguida!
Liren
1
Puede poner las definiciones de zy ren la misma línea (con una ;entre ellas), guardando un byte de sangría.
nore
3

R, 65 bytes

¡Gracias a Jarko Dubbeldam y Giuseppe por sus valiosos comentarios!

Código

f=function(x){a=dim(x);y=array(0,2*a+1);y[2*1:a[1],2*1:a[2]]=x;y}

La entrada para la función debe ser una matriz o matriz bidimensional.

Prueba

f(matrix(1))
f(matrix(c(1,5,4,2),2))
f(matrix(c(1,4,7),1))
f(matrix(c(6,4,2)))

Salida

> f(matrix(1))
     [,1] [,2] [,3]
[1,]    0    0    0
[2,]    0    1    0
[3,]    0    0    0
> f(matrix(c(1,5,4,2),2))
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    0    0    0    0
[2,]    0    1    0    4    0
[3,]    0    0    0    0    0
[4,]    0    5    0    2    0
[5,]    0    0    0    0    0
> f(matrix(c(1,4,7),1))
     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]    0    0    0    0    0    0    0
[2,]    0    1    0    4    0    7    0
[3,]    0    0    0    0    0    0    0
> f(matrix(c(6,4,2)))
     [,1] [,2] [,3]
[1,]    0    0    0
[2,]    0    6    0
[3,]    0    0    0
[4,]    0    4    0
[5,]    0    0    0
[6,]    0    2    0
[7,]    0    0    0
djhurio
fuente
De un vistazo, creo que usar en a=dim(x)*2+1lugar de nrowy ncolsería mejor. Entonces podrías hacer y=matrix(0);dim(y)=ay 2*1:a[1],2*1:a[2].
JAD
1
En realidad y=array(0,a)sería aún más corto.
JAD
1
Creo que puede eliminar los paréntesis alrededor de los índices, es decir, 2*1:a[1]porque :tiene mayor prioridad que*
Giuseppe
2

Mathematica, 55 bytes

(a=ArrayFlatten)@{o={0,0},{0,a@Map[{{#,0},o}&,#,{2}]}}&
alephalpha
fuente
3
o={0,0}puede reducirse ao=0{,}
JungHwan Min
2

PHP , 98 bytes

Entrada como matriz 2D, salida como cadena

<?foreach($_GET as$v)echo$r=str_pad(0,(count($v)*2+1)*2-1," 0"),"
0 ".join(" 0 ",$v)." 0
";echo$r;

Pruébalo en línea!

PHP , 116 bytes

Entrada y salida como matriz 2D

<?foreach($_GET as$v){$r[]=array_fill(0,count($v)*2+1,0);$r[]=str_split("0".join(0,$v)."0");}$r[]=$r[0];print_r($r);

Pruébalo en línea!

Jörg Hülsermann
fuente
2

Clojure, 91 bytes

#(for[h[(/ 2)]i(range(- h)(count %)h)](for[j(range(- h)(count(% 0))h)](get(get % i[])j 0)))

Itera sobre rangos en medios pasos.

NikoNyrh
fuente
2

Python 2 , 64 bytes

lambda l:map(g,*map(g,*l))
g=lambda*l:sum([[x,0]for x in l],[0])

Pruébalo en línea!

La función gintercala la entrada entre ceros. La función principal transpone la entrada mientras se aplica g, luego lo vuelve a hacer. Tal vez hay una manera de evitar la repetición en la función principal.

xnor
fuente
2

JavaScript (ES6), 73 72 bytes

a=>(g=a=>(r=[b],a.map(v=>r.push(v,b)),b=0,r))(a,b=a[0].map(_=>0)).map(g)

Formateado y comentado

Insertar ceros horizontal y verticalmente son operaciones muy similares. La idea aquí es usar la misma función g () para ambos pasos.

a =>                            // a = input array
  (g = a =>                     // g = function that takes an array 'a',
    (                           //     builds a new array 'r' where
      r = [b],                  //     'b' is inserted at the beginning
      a.map(v => r.push(v, b)), //     and every two positions,
      b = 0,                    //     sets b = 0 for the next calls
      r                         //     and returns this new array
  ))(a, b = a[0].map(_ => 0))   // we first call 'g' on 'a' with b = row of zeros
  .map(g)                       // we then call 'g' on each row of the new array with b = 0

Casos de prueba

Arnauld
fuente
2

Carbón , 49 bytes

A⪪θ;αA””βF⁺¹×²L§α⁰A⁺β⁰βA⁺β¶βFα«βA0δFιA⁺δ⁺κ⁰δ⁺䶻β

Pruébalo en línea!

La entrada es una sola cadena que separa las filas con un punto y coma.

Charlie
fuente
1
Modern Charcoal puede hacer esto en 24 bytes: ≔E⪪θ;⪫00⪫ι0θFθ⟦⭆ι0ι⟧⭆⊟θ0pero incluso evitando StringMap, sigo pensando que esto se puede hacer en 27 bytes.
Neil
Ah, y un par de consejos generales: hay una variable predefinida para la cadena vacía, y puede crear una cadena de ceros de una longitud determinada usando Times o Mold.
Neil
2

Módulos C ++ 17 +, 192 bytes

Entrada como filas de cadenas de cin , Salida a cout

import std.core;int main(){using namespace std;int i;auto&x=cout;string s;while(getline(cin,s)){for(int j=i=s.length()*2+1;j--;)x<<0;x<<'\n';for(auto c:s)x<<'0'<<c;x<<"0\n";}for(;i--;)x<<'0';}
Robert Andrzejuk
fuente
2

C # , 146 bytes


Datos

  • Entrada Int32[,] m La matriz a explotar
  • Salida Int32[,] La matriz explotada

Golfed

(int[,] m)=>{int X=m.GetLength(0),Y=m.GetLength(1),x,y;var n=new int[X*2+1,Y*2+1];for(x=0;x<X;x++)for(y=0;y<Y;y++)n[x*2+1,y*2+1]=m[x,y];return n;}

Sin golf

( int[,] m ) => {
    int
        X = m.GetLength( 0 ),
        Y = m.GetLength( 1 ),
        x, y;

    var
        n = new int[ X * 2 + 1, Y * 2 + 1 ];

    for( x = 0; x < X; x++ )
        for( y = 0; y < Y; y++ )
            n[ x * 2 + 1, y * 2 + 1 ] = m[ x, y ];

    return n;
}

Legible sin golf

// Takes an matrix of Int32 objects
( int[,] m ) => {
    // To lessen the byte count, store the matrix size
    int
        X = m.GetLength( 0 ),
        Y = m.GetLength( 1 ),
        x, y;

    // Create the new matrix, with the new size
    var
        n = new int[ X * 2 + 1, Y * 2 + 1 ];

    // Cycle through the matrix, and fill the spots
    for( x = 0; x < X; x++ )
        for( y = 0; y < Y; y++ )
            n[ x * 2 + 1, y * 2 + 1 ] = m[ x, y ];

    // Return the exploded matrix
    return n;
}

Código completo

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace TestBench {
    public static class Program {
        private static Func<Int32[,], Int32[,]> f = ( int[,] m ) => {
            int
                X = m.GetLength( 0 ),
                Y = m.GetLength( 1 ),
                x, y,

                a = X * 2 + 1,
                b = Y * 2 + 1;

            var
                n = new int[ a, b ];

            for( x = 0; x < X; x++ )
                for( y = 0; y < Y; y++ )
                    n[ a, b ] = m[ x, y ];

            return n;
        };

        public static Int32[,] Run( Int32[,] matrix ) {
            Int32[,]
                result = f( matrix );

            Console.WriteLine( "Input" );
            PrintMatrix( matrix );

            Console.WriteLine( "Output" );
            PrintMatrix( result );

            Console.WriteLine("\n\n");

            return result;
        }

        public static void RunTests() {
            Run( new int[,] { { 1 } } );
            Run( new int[,] { { 1, 3, 5 } } );
            Run( new int[,] { { 1 }, { 3 }, { 5 } } );
            Run( new int[,] { { 1, 3, 5 }, { 1, 3, 5 }, { 1, 3, 5 } } );
        }

        static void Main( string[] args ) {
            RunTests();

            Console.ReadLine();
        }

        public static void PrintMatrix<TSource>( TSource[,] array ) {
            PrintMatrix( array, o => o.ToString() );
        }
        public static void PrintMatrix<TSource>( TSource[,] array, Func<TSource, String> valueFetcher ) {
            List<String>
                output = new List<String>();

            for( Int32 xIndex = 0; xIndex < array.GetLength( 0 ); xIndex++ ) {
                List<String>
                    inner = new List<String>();

                for( Int32 yIndex = 0; yIndex < array.GetLength( 1 ); yIndex++ ) {
                    inner.Add( valueFetcher( array[ xIndex, yIndex ] ) );
                }

                output.Add( $"[ {String.Join( ", ", inner )} ]" );
            }

            Console.WriteLine( $"[\n   {String.Join( ",\n   ", output )}\n]" );
        }
    }
}

Lanzamientos

  • v1.0 - 146 bytes- Solución inicial.

Notas

  • Ninguna
auhmaan
fuente
No necesitará el (int[,] m)=>, solo m=>es suficiente si declara que mes una matriz int 2D en su respuesta. Además, se puede cambiar ,x,a ,x=0,y deshacerse de la x=0en la inicialización de bucle de -1 bytes. Y puede eliminar y++del bucle interno cambiando =m[x,y];a =m[x,y++];un byte -1 adicional. Pero hago +1 por mí, y si creo un puerto de su respuesta, también es más corto que mi respuesta Java actual. :)
Kevin Cruijssen
1

Dyalog APL, 24 bytes

{{⍵↑⍨¯1-⍴⍵}⊃⍪/,/2 2∘↑¨⍵}

¡Cualquier mejora es bienvenida y deseada!

Zacharý
fuente
1

JavaScript (ES6), 80 78 bytes

a=>[...a,...a,a[0]].map((b,i)=>[...b,...b,0].map((_,j)=>i&j&1&&a[i>>1][j>>1]))
Neil
fuente
1

APL (Dyalog) , 22 bytes

Solicita matriz, devuelve matriz cerrada.

{⍺⍀⍵\a}/⍴∘0 1¨1+2×⍴a←⎕

Pruébalo en línea!

a←⎕ solicitar matriz y asignar a un

 las dimensiones de a (filas, columnas)

 multiplicar por dos

1+ Agrega uno

⍴∘0 1¨ utilizar cada uno de r eshape (cíclicamente) los números cero y uno

{}/ Reduzca insertando la siguiente función anónima entre los dos números:

⍵\a expandir * las columnas de a de acuerdo con el argumento correcto

⍺⍀a expandir * las filas de eso de acuerdo con el argumento izquierdo

* 0 inserta una columna / fila de ceros, 1 inserta una columna / fila de datos original

Adán
fuente
1

Java 8, 183 166 162 129 bytes

m->{int a=m.length,b=m[0].length,x=0,y,r[][]=new int[a*2+1][b*2+1];for(;x<a;x++)for(y=0;y<b;r[x*2+1][y*2+1]=m[x][y++]);return r;}

Entrada y salida como a int[][].

-33 bytes creando un puerto de la respuesta C # de @auhmaan .

Explicación:

Pruébalo aquí.

m->{                                // Method with 2D integer-array as parameter and return-type
  int a=m.length,                   //  Current height
      b=m[0].length,                //  Current width
      x=0,y,                        //  Two temp integers
      r[][]=new int[a*2+1][b*2+1];  //  New 2D integer-array with correct size
  for(;x<a;x++)                     //  Loop (1) over the height
    for(y=0;y<b;                    //   Inner loop (2) over the width
      r[x*2+1][y*2+1]=m[x][y++]     //    Fill the new array with the input digits
    );                              //   End of inner loop (2)
                                    //  End of loop (1) (implicit / single-line body)
  return r;                         //  Return result 2D integer-array
}                                   // End of method
Kevin Cruijssen
fuente
0

05AB1E , 22 bytes

"vy0ý0.ø})"©.V€Sø®.Vø»

Pruébalo en línea!


En realidad usa el mismo fragmento de código 2x, así que puedo almacenarlo como una cadena y usar Eval para -10 bytes.

Urna de pulpo mágico
fuente