Palindromic primes in base 16: Difference between revisions
Added Perl
(Added XPL0 example.) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 143:
Found 13 such primes.
</pre>
=={{header|Perl}}==
<lang perl> (1 x $_ ) !~ /^(11+)\1+$/ # test if prime
and $h = sprintf "%x", $_ # convert to hex
and $h eq reverse $h # palindromic?
and print "$h " # much rejoicing
for 1..500;</lang>
{{out}}
<pre>1 2 3 5 7 b d 11 101 151 161 191 1b1 1c1</pre>
=={{header|Phix}}==
|