Munchausen numbers: Difference between revisions
Add PL/I
Not a robot (talk | contribs) (Add CLU) |
Not a robot (talk | contribs) (Add PL/I) |
||
Line 2,027:
1
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}}==
| |||