Primality by trial division: Difference between revisions
add tinybasic
(Updated to work with Nim 1.4: removed the template and replaced "any" by "anyIt". Added output.) |
(add tinybasic) |
||
Line 3,814:
Disp "NOT PRIME"
End
=={{header|Tiny BASIC}}==
<lang tinybasic> PRINT "ENTER A NUMBER "
INPUT P
GOSUB 100
IF Z = 1 THEN PRINT "It is prime."
IF Z = 0 THEN PRINT "It isn't prime."
END
100 REM PRIMALITY OF THE NUMBER P BY TRIAL DIVISION
IF P < 2 THEN RETURN
LET Z = 1
IF P < 4 THEN RETURN
LET I = 2
110 IF (P/I)*I = P THEN LET Z = 0
IF Z = 0 THEN RETURN
LET I = I + 1
IF I*I < P THEN GOTO 110
RETURN</lang>
=={{header|uBasic/4tH}}==
| |||