Rosetta Code

Pernicious numbers: Difference between revisions

Page Discussion

Pernicious numbers (view source)

Revision as of 02:25, 28 June 2020

184 bytes removed ,  3 years ago
m
→‎{{header|Phix}}: is_prime() now builtin
m (Fix Perl 6 -> Raku in comments)
m (→‎{{header|Phix}}: is_prime() now builtin)
Line 1,655:
 
=={{header|Phix}}==
<lang Phix>function is_primepernicious(atominteger n)
if n<2 then return false end if
for i=2 to floor(sqrt(n)) do
if mod(n,i)=0 then return false end if
end for
return true
end function
 
function pernicious(integer n)
return is_prime(sum(int_to_bits(n,32)))
end function
Petelomax
7,796

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/242074"