RosettaCodeData/Task/Pascal-matrix-generation/Mathematica/pascal-matrix-generation-2....

4 lines
99 B
Plaintext

lowerPascal[size_] :=
MatrixExp[
SparseArray[{Band[{2, 1}] -> Range[size - 1]}, {size, size}]]]