Primes whose first and last number is 3: Difference between revisions

m
→‎{{header|REXX}}: added stretch goal solution.
m (→‎{{header|REXX}}: elided a word from the REXX section header.)
m (→‎{{header|REXX}}: added stretch goal solution.)
Line 112:
if Td\==dig then iterate /* " " " " trailing ? ? */ /* ◄■■■■■■■ a filter.*/
found= found + 1 /*bump the number of primes found. */
if cols<0= then iterate /*Build the list (to be shown later)? */
c= commas(@.j) /*maybe add commas to the number. */
$= $ right(c, max(w, length(c) ) ) /*add a prime ──► $ list, allow big #*/
Line 151:
 
Found 33 primes N (in base ten) that have a leading and ending digit of 3 where N < 4,000
</pre>
{{out|output|text=&nbsp; when using the default inputs of: &nbsp; &nbsp; <tt> 1000000 &nbsp; -1 </tt>}}
<pre>
Found 2,251 primes N (in base ten) that have a leading and ending digit of 3 where N < 1,000,000
</pre>