Nice primes: Difference between revisions

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 */
3,043

edits