Additive primes: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed the format of the output.) |
m (→{{header|REXX}}: add a comment.) |
||
Line 292: | Line 292: | ||
Aprimes= Aprimes + 1 /*bump the count of additive primes. */ |
Aprimes= Aprimes + 1 /*bump the count of additive primes. */ |
||
if cols==0 then iterate /*Build the list (to be shown later)? */ |
if cols==0 then iterate /*Build the list (to be shown later)? */ |
||
c= commas(j) |
c= commas(j) /*maybe add commas to the number. */ |
||
$= $ right(c, max(w, length(c) ) ) /*add additive prime──►list, allow big#*/ |
$= $ right(c, max(w, length(c) ) ) /*add additive prime──►list, allow big#*/ |
||
if Aprimes//cols\==0 then iterate /*have we populated a line of output? */ |
if Aprimes//cols\==0 then iterate /*have we populated a line of output? */ |