Multifactorial: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add SETL) |
Not a robot (talk | contribs) (Add Cowgol) |
||
Line 671: | Line 671: | ||
9: 1 2 3 4 5 6 7 8 9 10 |
9: 1 2 3 4 5 6 7 8 9 10 |
||
10: 1 2 3 4 5 6 7 8 9 10</pre> |
10: 1 2 3 4 5 6 7 8 9 10</pre> |
||
=={{header|Cowgol}}== |
|||
<syntaxhighlight lang="cowgol">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;</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1: 1 2 6 24 120 720 5040 40320 362880 3628800 |
|||
2: 1 2 3 8 15 48 105 384 945 3840 |
|||
3: 1 2 3 4 10 18 28 80 162 280 |
|||
4: 1 2 3 4 5 12 21 32 45 120 |
|||
5: 1 2 3 4 5 6 14 24 36 50</pre> |
|||
=={{header|Crystal}}== |
=={{header|Crystal}}== |