24 lines
448 B
Text
24 lines
448 B
Text
include "cowgol.coh";
|
|
|
|
sub multifac(n: uint32, d: uint32): (r: uint32) is
|
|
r := 1;
|
|
loop
|
|
r := r * n;
|
|
if n <= d then break; end if;
|
|
n := n - d;
|
|
end loop;
|
|
end sub;
|
|
|
|
var d: uint32 := 1;
|
|
while d <= 5 loop
|
|
print_i32(d);
|
|
print(": ");
|
|
var n: uint32 := 1;
|
|
while n <= 10 loop
|
|
print_i32(multifac(n, d));
|
|
print(" ");
|
|
n := n + 1;
|
|
end loop;
|
|
print_nl();
|
|
d := d + 1;
|
|
end loop;
|