Anonymous user
Palindromic primes: Difference between revisions
→{{header|Phix}}
m (→{{header|Go}}: Punctuation.) |
|||
Line 228:
</lang>{{out}}
<pre>[2, 3, 5, 7, 9, 11, 101, 131, 151, 181, 191, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929]</pre>
=={{header|Perl}}==
<lang Perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Palindromic_primes
use warnings;
$_ == reverse and (1 x $_ ) !~ /^(11+)\1+$/ and print "$_\n" for 2 .. 1e3;</lang>
{{out}}
2
3
5
7
11
101
131
151
181
191
313
353
373
383
727
757
787
797
919
929
=={{header|Phix}}==
| |||