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