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