Pandigital prime: Difference between revisions
→{{header|Perl}}: added optional portion of task
(→{{header|Ring}}: streamlined, added optional task) |
SqrtNegInf (talk | contribs) (→{{header|Perl}}: added optional portion of task) |
||
Line 348:
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>#!/usr/bin/perl
Line 363 ⟶ 364:
}</lang>
{{out}}
<pre>7652413</pre>
Slightly different approach for optional portion of task.
<lang perl>use strict;
use warnings;
use ntheory <forperm is_prime vecmax>;
my @p;
for my $c (0..7) {
forperm {
my $n = join '', @_;
push @p, $n if $n !~ /^0/ and is_prime($n);
} @{[0..$c]};
}
print vecmax(@p) . "\n";</lang>
{{out}}
<pre>76540231</pre>
=={{header|Phix}}==
| |||