Munchausen numbers: Difference between revisions
→{{header|ALGOL 68}}: Fixed buggette
(→{{header|ALGOL 68}}: Simplified because Munchausen numbers consider 0^0 to be 0.) |
(→{{header|ALGOL 68}}: Fixed buggette) |
||
Line 10:
=={{header|ALGOL 68}}==
<lang algol68># Find Munchausen Numbers between 1 and 5000 #
# note that 6^6 is 46 656 so we only need to
# table of Nth powers - note 0^0 is 0 for Munchausen numbers, not 1 #
Line 27:
+ nth power[ d3 ]
+ nth power[ d4 ];
IF digit power sum = number THEN
IF number > 0 THEN
| |||