Anonymous user
Primality by trial division: Difference between revisions
→{{header|S-Lang}}
No edit summary |
|||
Line 2,742:
23 is prime!
29 is prime!</pre>
=={{header|S-lang}}==
<lang S-lang>define is_prime(n)
{
if (n == 2) return(1);
if (n <= 1) return(0);
if ((n & 1) == 0) return(0);
variable mx = int(sqrt(n)), i;
_for i (3, mx, 1) {
if ((n mod i) == 0)
return(0);
}
return(1);
}
define ptest()
{
variable lst = {};
_for $1 (1, 64, 1)
if (is_prime($1))
list_append(lst, string($1));
print(strjoin(list_to_array(lst), ", "));
}
ptest();
</lang>
{{out}}
"2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61"
=={{header|SAS}}==
| |||