Stirling numbers of the first kind: Difference between revisions

Content added Content deleted
(Added Lua)
m (→‎{{header|ALGOL W}}: Adjust output to avoid line-wrap)
Line 191: Line 191:


=={{header|ALGOL W}}==
=={{header|ALGOL W}}==
<syntaxhighlight lang="algolw">begin % show some (unsigned) Stirling numbers of the first kind %
<syntaxhighlight lang="algolw">
begin % show some (unsigned) Stirling numbers of the first kind %
integer MAX_STIRLING;
integer MAX_STIRLING;
MAX_STIRLING := 12;
MAX_STIRLING := 12;
Line 211: Line 212:
% print the Stirling numbers up to n, k = 12 %
% print the Stirling numbers up to n, k = 12 %
write( "Unsigned Stirling numbers of the first kind:" );
write( "Unsigned Stirling numbers of the first kind:" );
write( " k" );
write( " k 0" );
for k := 0 until MAX_STIRLING do writeon( i_w := 10, s_w := 0, k );
for k := 1 until MAX_STIRLING do writeon( i_w := if k < 6 then 10 else 9, s_w := 0, k );
write( " n" );
write( " n" );
for n := 0 until MAX_STIRLING do begin
for n := 0 until MAX_STIRLING do begin
write( i_w := 2, s_w := 0, n );
write( i_w := 2, s_w := 0, n, i_w := 3, s1( n, 0 ) );
for k := 0 until n do begin
for k := 1 until n do begin
writeon( i_w := 10, s_w := 0, s1( n, k ) )
writeon( i_w := if k < 6 then 10 else 9, s_w := 0, s1( n, k ) )
end for_k
end for_k
end for_n
end for_n
end
end
end.
end.</syntaxhighlight>
</syntaxhighlight>
{{out}}
{{out}}
<pre>
<pre>
Unsigned Stirling numbers of the first kind:
Unsigned Stirling numbers of the first kind:
k 0 1 2 3 4 5 6 7 8 9 10 11 12
k 0 1 2 3 4 5 6 7 8 9 10 11 12
n
n
0 1
0 1
1 0 1
1 0 1
2 0 1 1
2 0 1 1
3 0 2 3 1
3 0 2 3 1
4 0 6 11 6 1
4 0 6 11 6 1
5 0 24 50 35 10 1
5 0 24 50 35 10 1
6 0 120 274 225 85 15 1
6 0 120 274 225 85 15 1
7 0 720 1764 1624 735 175 21 1
7 0 720 1764 1624 735 175 21 1
8 0 5040 13068 13132 6769 1960 322 28 1
8 0 5040 13068 13132 6769 1960 322 28 1
9 0 40320 109584 118124 67284 22449 4536 546 36 1
9 0 40320 109584 118124 67284 22449 4536 546 36 1
10 0 362880 1026576 1172700 723680 269325 63273 9450 870 45 1
10 0 362880 1026576 1172700 723680 269325 63273 9450 870 45 1
11 0 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55 1
11 0 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55 1
12 0 39916800 120543840 150917976 105258076 45995730 13339535 2637558 357423 32670 1925 66 1
12 0 39916800 120543840 150917976 105258076 45995730 13339535 2637558 357423 32670 1925 66 1
</pre>
</pre>


Retrieved from "https://rosettacode.org/wiki/Stirling_numbers_of_the_first_kind"