Rosetta Code

Emirp primes: Difference between revisions

Page Discussion

Emirp primes (view source)

Revision as of 13:06, 29 May 2020

257 bytes removed ,  4 years ago
→‎{{header|Wren}}: Now uses Wren-math module.
m (Added Wren)
(→‎{{header|Wren}}: Now uses Wren-math module.)
Line 4,154:
 
=={{header|Wren}}==
{{libheader|Wren-math}}
<lang ecmascript>varimport isPrime"/math" =for Fn.new { |n|Int
if (n < 2 || !n.isInteger) return false
if (n%2 == 0) return n == 2
if (n%3 == 0) return n == 3
var d = 5
while (d*d <= n) {
if (n%d == 0) return false
d = d + 2
if (n%d == 0) return false
d = d + 4
}
return true
}
 
var isEmirp = Fn.new{ |n|
if (!isPrimeInt.callisPrime(n)) return false
var ns = "%(n)"
var rs = ns[-1..0]
var r = Num.fromString(rs)
if (r == n) return false
if (isPrimeInt.callisPrime(r)) return true
return false
}
PureFox
9,490

edits

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