Magnanimous numbers: Difference between revisions
Content added Content deleted
(Added PL/M) |
(→{{header|PL/M}}: Note) |
||
Line 972: | Line 972: | ||
=={{header|PL/M}}== |
=={{header|PL/M}}== |
||
This sample can be compiled with the original 8080 PL/M compiler and run under CP/M (or a clone/emulator). |
This sample can be compiled with the original 8080 PL/M compiler and run under CP/M (or a clone/emulator). |
||
<br>THe original 8080 PL/M only supports 8 and 16 bit quantities, so this only shows magnanimous numbers up to the 250th. |
|||
<lang plm>100H: /* FIND SOME MAGNANIMOUS NUMBERS - THOSE WHERE INSERTING '+' BETWEEN */ |
<lang plm>100H: /* FIND SOME MAGNANIMOUS NUMBERS - THOSE WHERE INSERTING '+' BETWEEN */ |
||
/* ANY TWO OF THE DIGITS AND EVALUATING THE SUM RESULTS IN A PRIME */ |
/* ANY TWO OF THE DIGITS AND EVALUATING THE SUM RESULTS IN A PRIME */ |