Triángulo de Pascal como una lista bidimensional

11

Cree un Triángulo de Pascal que sea una lista anidada y que contenga ceros en los puntos no utilizados.

En la matriz de salida, los números del Triángulo de Pascal están separados por ceros y rellenados por ceros en cada lado para que estén centrados. Por ejemplo, la fila inferior (última submatriz) no debe tener ceros a la izquierda ni a la derecha; el penúltimo subarreglo tiene un relleno cero en cada lado, y así sucesivamente.

Aquí está la salida para la entrada 5:

[[0,0,0,0,1,0,0,0,0],
[0,0,0,1,0,1,0,0,0],
[0,0,1,0,2,0,1,0,0],
[0,1,0,3,0,3,0,1,0],
[1,0,4,0,6,0,4,0,1]]

Como de costumbre, la solución con la menor cantidad de bytes gana.

usuario51747
fuente
55
Duplicado de esto . Simplemente cambiar el formato de salida no cambia el desafío, desafortunadamente. Intente publicar en Stack Overflow si aún necesita ayuda con esto.
GamrCorps
2
Bueno, hay ceros extra.
CalculatorFeline
Este programa imprime el que desea (Python 3):print("def pascal(n):\n #make the nested list\n a=[[0 for i in range(2*n+1)] for j in range(n+1)] #make the list\n a[0][n]=1 #add the initial 1\n for i in range(1,n+1):\n for j in range(2*n+1):\n a[i][j]=a[i-1][j-1]+a[i-1][(j+1)%(2*n+1)] #the main part\n return a")
CalculatorFeline
1
@CatsAreFluffy Los ceros adicionales simplemente reemplazan los espacios en la iteración anterior; este es el mismo problema funcionalmente.
ricdesi
2
¿Puedo usar la sintaxis de representación de matriz nativa para mi idioma o el formato no es negociable?
gato

Respuestas:

3

Mathematica, 70 68 bytes

NestList[ListConvolve[{1,0,1},#,2]&,Join[#,{1},#],#2]&[0~Table~#,#]&

Similar a la solución MATL.

CalculadoraFeline
fuente
3

Mathematica, 48 bytes

CellularAutomaton[{#+#3&@@#&,{},1},{{1},0},#-1]&

CellularAutomation es fantastico.

njpipeorgan
fuente
2

Jalea, 12 bytes

NR¬ṙ-,1S$³Ð¡

Pruébalo aquí.

Explicación

                   This is a list of functions, each operating on the input, n:
NR                 Get the range [-n -n+1 ... 0 ... n-1 n].
  ¬                Logical NOT the entire range: [0 0 ... 1 ... 0 0].
         ³Ð¡       Repeat n times, and cumulate the results:
   ṙ-,1                Rotate by both -1 and 1
       S               Sum the results.
        $              (Joins the above two functions)
Lynn
fuente
1

Haskell, 66 bytes

q n|d<-0<$[2..n]=scanl(\(s:t)_->zipWith(+)(0:s:t)$t++[0])(d++1:d)d

Ejemplo de uso: q 4-> [[0,0,0,1,0,0,0],[0,0,1,0,1,0,0],[0,1,0,2,0,1,0],[1,0,3,0,3,0,1]].

Cómo funciona:

d <- 0<$[2..n]                      -- bind d to a list of (length n)-1 zeros
scanl                               -- build a list
                         (d++1:d)   -- starting with  [d ++ 1 ++ d]
      \(s:t)_                    d  -- by combining the previous element with the
                                    -- elements of d, but ignoring them, i.e.
                                    -- build a list of (length d) by repeatedly
                                    -- modifying the start element by
          zipWith(+)                -- adding element-wise
                    (0:s:t)         -- the previous element prepended by 0  
                           t++[0]   -- and the tail of the previous element
                                    -- followed by a 0 
nimi
fuente
1

Python 3, 172 158 133 bytes

def p(n):
 x=2*n+1;y=range
 a=[[0]*x]*n;a[0][n]=1
 for i in y(1,n+1):
  for j in y(x):a[i][j]=a[i-1][j-1]+a[i-1][(j+1)%(x)]
 return a

Sigue mejorando

CalculadoraFeline
fuente
1
esto aún no está totalmente golfizado, ¿verdad?
gato
Um, si. Esto (en una forma un poco menos golfizada) está impreso por un programa que dejé un comentario sobre la pregunta.
CalculatorFeline
1

MATL , 24 22 21 bytes

tEq:=Gq:"t5BX+8L)]N$v

EDITAR (20 de mayo de 2016): a partir de la versión 18.0.0 del lenguaje, el código anterior necesita algunos cambios para ejecutarse. El siguiente enlace incluye esas modificaciones

Pruébalo en línea!

Esto usa un bucle para empujar cada nueva fila a la pila. Se calcula una nueva fila a partir de la fila anterior aplicando convolución [1,0,1]y manteniendo solo el tamaño deseado. Después del bucle, todas las filas se concatenan en una matriz 2D, que se muestra. La matriz 2D se muestra en MATL como tablas numéricas alineadas con columnas.

t           % implicit input n. Duplicate
Eq          % 2*n-1
:           % range [1,2,...,2*n-1]
=           % gives [0,0,...1,...0,0]. This is the first row
Gq:         % range [1,2,...,n-1]
"           % for each. Repeat n-1 times
  t         %   duplicate latest row. This duplicate will become the next row
  5B        %   push array [1,0,1] (5 converted to binary)
  X+        %   convolution
  8L        %   predefined literal [2,-1i]. Used for indexing
  )         %   apply that index: remove one element at each end
]           % end for each
N$v         % concatenate all rows into a 2D array. Implicitly display
Luis Mendo
fuente
0

Javascript, 152 146 bytes

f=i=>[...Array(i)].map((x,j)=>(z=[...Array(i*2-1)].map((_,k)=>+!!~[i-j,i+j].indexOf(k+1)),y=j?z.map((_,k)=>_||(k&&(k+1 in y)?y[k-1]+y[k+1]:_)):z))

remoto
fuente
0

En serio, 33 bytes

╩╜r`╣;lD0nkdZΣ`M╜rRZ`i0nkd@;)kΣ`M

Pruébalo en línea

Estoy relativamente seguro de que al menos 7 de esos bytes se pueden eliminar, por lo que esperaré para publicar una explicación hasta que termine de jugar más.

Mego
fuente
0

PHP , 106 bytes

for(;$r++<$a=$argn;)for($c=-$a;++$c<$a;)$t[$r][$c]=$r>1|$c?$t[$r-1][$c-1]+$t[$r-1][$c+1]?:0:1;print_r($t);

Pruébalo en línea!

Jörg Hülsermann
fuente