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