Circular primes: Difference between revisions
Content added Content deleted
(Added AppleScript.) |
m (→{{header|AppleScript}}: Very minor edit.) |
||
| Line 190: | Line 190: | ||
on isCircularPrime(n) |
on isCircularPrime(n) |
||
if (not isPrime(n)) then return false |
if (not isPrime(n)) then return false |
||
set temp to n |
set temp to n |
||
set c to 0 |
set c to 0 |
||
repeat |
repeat while (temp > 9) |
||
set temp to temp div 10 |
set temp to temp div 10 |
||
set c to c + 1 |
set c to c + 1 |
||