RosettaCodeData/Task/Primality-by-trial-division/Bc/primality-by-trial-division.bc
2017-09-25 22:28:19 +02:00

12 lines
243 B
Text

/* Return 1 if n is prime, 0 otherwise */
define p(n) {
auto i
if (n < 2) return(0)
if (n == 2) return(1)
if (n % 2 == 0) return(0)
for (i = 3; i * i <= n; i += 2) {
if (n % i == 0) return(0)
}
return(1)
}