Munchausen numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add CLU) |
Not a robot (talk | contribs) (Add PL/I) |
||
Line 2,027: | Line 2,027: | ||
1 |
1 |
||
3435</pre> |
3435</pre> |
||
=={{header|PL/I}}== |
|||
<lang pli>munchausen: procedure options(main); |
|||
/* precalculate powers */ |
|||
declare (pows(0:5), i) fixed; |
|||
pows(0) = 0; /* 0^0=0 for Munchausen numbers */ |
|||
do i=1 to 5; pows(i) = i**i; end; |
|||
declare (d1, d2, d3, d4, num, dpow) fixed; |
|||
do d1=0 to 5; |
|||
do d2=0 to 5; |
|||
do d3=0 to 5; |
|||
do d4=1 to 5; |
|||
num = d1*1000 + d2*100 + d3*10 + d4; |
|||
dpow = pows(d1) + pows(d2) + pows(d3) + pows(d4); |
|||
if num=dpow then put skip list(num); |
|||
end; |
|||
end; |
|||
end; |
|||
end; |
|||
end munchausen;</lang> |
|||
{{out}} |
|||
<pre> 1 |
|||
3435</pre> |
|||
=={{header|Plain English}}== |
=={{header|Plain English}}== |