Nice primes: Difference between revisions
→{{header|PL/M}}: Bug fix
m (→{{header|REXX}}: simplified the code.) |
(→{{header|PL/M}}: Bug fix) |
||
Line 1,040:
/* HAVE A PRIME */
DECLARE DIGIT$SUM BYTE, V ADDRESS;
DIGIT$SUM = LOW( V := I );
DO WHILE( V > 9 );
DIGIT$SUM = 0;
Line 1,063:
END;
END;
EOF</lang>
{{out}}
<pre>
| |||