Anonymous user
Quadrat special primes: Difference between revisions
m
→{{header|REXX}}: changed some comments and whitespace.
(Added Sidef) |
m (→{{header|REXX}}: changed some comments and whitespace.) |
||
Line 477:
sqp= 0; idx= 1 /*initialize number of sqp and index.*/
op= 1
$= /*
do j=0 by 0
do k=1 until !.np; np= op + k*k /*find the next square + oldPrime.*/
Line 486:
if cols<0 then iterate /*Build the list (to be shown later)? */
c= commas(np) /*maybe add commas to the number. */
$= $ right(c, max(w, length(c) ) ) /*add
if sqp//cols\==0 then iterate /*have we populated a line of output? */
say center(idx, 7)'│' substr($, 2); $= /*display what we have so far (cols). */
| |||