Stirling numbers of the first kind: Difference between revisions
m
→{{header|ALGOL W}}: Adjust output to avoid line-wrap
(Added Lua) |
m (→{{header|ALGOL W}}: Adjust output to avoid line-wrap) |
||
Line 191:
=={{header|ALGOL W}}==
<syntaxhighlight lang="algolw">
begin % show some (unsigned) Stirling numbers of the first kind %
integer MAX_STIRLING;
MAX_STIRLING := 12;
Line 211 ⟶ 212:
% print the Stirling numbers up to n, k = 12 %
write( "Unsigned Stirling numbers of the first kind:" );
write( " k 0" );
for k :=
write( " n" );
for n := 0 until MAX_STIRLING do begin
write( i_w := 2, s_w := 0, n, i_w := 3, s1( n, 0 ) );
for k :=
writeon( i_w := if k < 6 then 10 else 9, s_w := 0, s1( n, k ) )
end for_k
end for_n
end
end.
{{out}}
<pre>
Unsigned Stirling numbers of the first kind:
k
n
0
1
2
3
4
5
6
7
8
9
10
11
12
</pre>
|