aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Pascal-matrix-generation/PascalABC.NET/pascal-matrix-generation.pas Normal file
View file

@ -0,0 +1,16 @@
##
function binomial(n, k: integer): biginteger;
begin
result := 1bi;
for var i := 1 to k do
result := result * (n - i + 1) div i;
end;
var m := (0..4).Select(i -> (0..4).Select(j -> binomial(i, j)));
MatrByCol(m).println;
println;
m := (0..4).Select(i -> (0..4).Select(j -> binomial(j, i)));
MatrByCol(m).println;
println;
m := (0..4).Select(i -> (0..4).Select(j -> binomial(j + i, j)));
MatrByCol(m).println;