Munchausen numbers: Difference between revisions
→{{header|ALGOL 68}}: Simplified because Munchausen numbers consider 0^0 to be 0.
(Added Sidef) |
(→{{header|ALGOL 68}}: Simplified because Munchausen numbers consider 0^0 to be 0.) |
||
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 consider numbers consisting of 0 to 5
# table of Nth powers - note 0^0 is 0 for Munchausen numbers, not 1 #
[]INT nth power = ([]INT(
INT number := 0;
FOR d1 FROM 0 TO 5 WHILE number < 5001 DO
INT d1 part = d1 * 1000;
FOR d2 FROM 0 TO 5 DO
Line 22 ⟶ 23:
INT d3 part = d3 * 10;
FOR d4 FROM 0 TO 5 DO
INT digit power sum :=
IF d1 > 0 THEN▼
+ nth power[ d2 ]
+ nth power[ d3 ]
+ nth power[ d4 ];
IF digit power sum = number THEN
print( ( whole( number, 0 ), newline ) )
FI
OD
Line 51 ⟶ 42:
3435
</pre>
=={{header|AppleScript}}==
| |||