Unprimeable numbers: Difference between revisions
m
→{{header|Raku}}: note use of 'ntheory' module
Drkameleon (talk | contribs) (Added Arturo implementation) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: note use of 'ntheory' module) |
||
Line 2,764:
=={{header|Raku}}==
(formerly Perl 6)
{{libheader|ntheory}}
<lang perl6>use ntheory:from<Perl5> <is_prime>;
use Lingua::EN::Numbers;
Line 2,774 ⟶ 2,773:
for ^chrs -> \place {
my \pow = 10**(chrs - place - 1);
my \this = n.substr(place, 1)
^10 .map: -> \dgt {
next if this == dgt;
return False if is_prime(n - this + dgt
}
}
| |||