Munchausen numbers: Difference between revisions

m
→‎{{header|ALGOL W}}: Fixed typos in comments
(Added Algol W)
m (→‎{{header|ALGOL W}}: Fixed typos in comments)
Line 125:
=={{header|ALGOL W}}==
{{Trans|ALGOL 68}}
<lang algolw>% endndFind Munchausen Numbers between 1 and 5000 %
% note that 6^6 is 46 656 so we only need to cosiderconsider numbers consisting of 0 to 5 %
begin
% table of nthPowersnth Powers - note 0^0 is 0 for Munchausen numbers, not 1 %
integer array nthPower( 0 :: 5 );
integer d1, d2, d3, d4, d1Part, d2Part, d3Part;
3,044

edits