Primality by trial division: Difference between revisions
Content added Content deleted
(Added BBC BASIC) |
|||
| Line 183: | Line 183: | ||
119 is not prime! |
119 is not prime! |
||
137 is prime! |
137 is prime! |
||
</pre> |
|||
=={{header|BBC BASIC}}== |
|||
<lang bbcbasic> FOR i% = -1 TO 100 |
|||
IF FNisprime(i%) PRINT ; i% " is prime" |
|||
NEXT |
|||
END |
|||
DEF FNisprime(n%) |
|||
IF n% <= 1 THEN = FALSE |
|||
IF n% <= 3 THEN = TRUE |
|||
IF (n% AND 1) = 0 THEN = FALSE |
|||
LOCAL t% |
|||
FOR t% = 3 TO SQR(n%) STEP 2 |
|||
IF n% MOD t% = 0 THEN = FALSE |
|||
NEXT |
|||
= TRUE</lang> |
|||
'''Output:''' |
|||
<pre> |
|||
2 is prime |
|||
3 is prime |
|||
5 is prime |
|||
7 is prime |
|||
11 is prime |
|||
13 is prime |
|||
17 is prime |
|||
19 is prime |
|||
23 is prime |
|||
29 is prime |
|||
31 is prime |
|||
37 is prime |
|||
41 is prime |
|||
43 is prime |
|||
47 is prime |
|||
53 is prime |
|||
59 is prime |
|||
61 is prime |
|||
67 is prime |
|||
71 is prime |
|||
73 is prime |
|||
79 is prime |
|||
83 is prime |
|||
89 is prime |
|||
97 is prime |
|||
</pre> |
</pre> |
||