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-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Multifactorial/PascalABC.NET/multifactorial.pas Normal file
View file

@ -0,0 +1,11 @@
##
function mfac(n, m: integer) := range(n, 1, -m).aggregate(1, (p, x) -> p * x);
function mfac2(n, m: integer): integer := if n <= (m + 1) then n else n * mfac2(n - m, m);
foreach var m in (1..5) do
begin
write(#10, m, ': ');
foreach var n in (1..10) do
mfac2(n, m).Print;
end;