Palindromic primes: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 5:
Find and show all palindromic primes <big>'''n'''</big>, where <big> '''n < 1000''' </big>
<br><br>
=={{header|Arturo}}==
<lang rebol>loop split.every: 10 select 2..1000 'x [
and? prime? x
x = to :integer reverse to :string x
] 'a -> print map a => [pad to :string & 4]</lang>
{{out}}
<pre> 2 3 5 7 11 101 131 151 181 191
313 353 373 383 727 757 787 797 919 929</pre>
=={{header|AWK}}==
Line 44 ⟶ 56:
Palindromic primes 1-999: 20
</pre>
=={{header|Factor}}==
===Simple===
| |||