Anonymous user
Palindromic primes: Difference between revisions
m
→{{header|REXX}}: changed some comments.
(→{{header|ALGOL 68}}: Tweak) |
m (→{{header|REXX}}: changed some comments.) |
||
Line 485:
w= max(8, length( commas(hi) ) ) /*max width of a number in any column. */
title= ' palindromic primes that are < ' commas(hi)
if cols>0 then say ' index │'center(title, 1 + cols*(w+1) )
if cols>0 then say '───────┼'center("" , 1 + cols*(w+1), '─')
finds= 0; idx= 1 /*define # of palindromic primes & idx.*/
$= /*a list of palindromic primes (so far)*/
Line 500:
end /*j*/
if $\=='' then say center(idx, 7)"│" substr($, 2) /*
if cols>0 then say '───────┴'center("" , 1 + cols*(w+1), '─')
say
|