Треугольник Паскаля как двумерный список


11

Создайте треугольник Паскаля, который является вложенным списком и содержит нули в неиспользуемых местах.

В выходном массиве числа треугольника Паскаля разделены нулями и дополнены нулями с каждой стороны, чтобы они были отцентрированы. Например, нижняя строка (последний под-массив) не должна иметь нулей слева и справа; второй-последний подмассив имеет одно заполнение нулями на каждой стороне и так далее.

Вот вывод для ввода 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]]

Как обычно, решение с наименьшим количеством байтов выигрывает.


5
Дубликат этого . К сожалению, простое изменение формата вывода не меняет проблему. Попробуйте опубликовать в переполнении стека, если вам все еще нужна помощь с этим.
GamrCorps

2
Ну, есть лишние нули.
CalculatorFeline

Эта программа печатает тот, который вы хотите (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 Дополнительные нули просто заменяют пробелы в предыдущей итерации - это функционально точно такая же проблема.
Рикдези

2
Могу ли я использовать собственный синтаксис представления массива для моего языка или формат не подлежит обсуждению?
кот

Ответы:


3

Mathematica, 70 68 байт

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

Аналогично решению MATL.


3

Mathematica, 48 байтов

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

CellularAutomation Это фантастично.


2

Желе, 12 байт

NR¬ṙ-,1S$³Ð¡

Попробуй это здесь.

объяснение

                   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)

1

Haskell, 66 байт

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

Пример использования: 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]].

Как это работает:

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 

1

Python 3, 172 158 133 байта

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

Становится лучше


1
это еще не полностью гольф, верно?
кот

Хм да Это (в несколько меньшей форме) напечатано программой, которую я оставил в комментарии к вопросу.
CalculatorFeline

1

MATL , 24 22 21 байт

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

РЕДАКТИРОВАТЬ (20 мая 2016 г.): начиная с версии 18.0.0 языка для запуска вышеуказанного кода необходимо выполнить несколько изменений. Ссылка ниже включает эти модификации

Попробуйте онлайн!

Это использует цикл для вставки каждой новой строки в стек. Новая строка вычисляется из предыдущей строки с применением свертки с [1,0,1]сохранением только нужного размера. После цикла все строки объединяются в двумерный массив, который отображается. 2D-массив отображается в MATL в виде числовых таблиц с выравниванием по столбцам.

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

0

Javascript, 152 146 байт

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


0

Серьезно, 33 байта

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

Попробуйте онлайн

Я относительно уверен, что по крайней мере 7 или около того этих байтов можно сбрить, так что я буду ждать, чтобы опубликовать объяснение, пока я не закончу играть в гольф дальше.


Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.