Nice primes: Difference between revisions
m
→{{header|PL/M}}
(Added PL/M) |
|||
Line 960:
=={{header|PL/M}}==
{{Trans|ALGOL 68}}
<lang plm>100H: /* FIND NICE PRIMES - PRIMES WHOSE DIGITAL ROOT IS ALSO PRIME */
BDOS: PROCEDURE( FN, ARG ); /* CP/M BDOS SYSTEM CALL */
|