Prime triplets: Difference between revisions
add tinybasic
(add Fermat) |
(add tinybasic) |
||
Line 332:
</pre>
=={{header|Tiny BASIC}}==
<lang tinybasic> LET A = 1
10 LET A = A + 2
IF A > 5499 THEN END
LET P = A
GOSUB 100
IF Z = 0 THEN GOTO 10
LET P = A + 2
GOSUB 100
IF Z = 0 THEN GOTO 10
LET P = A + 6
GOSUB 100
IF Z = 0 THEN GOTO 10
PRINT A," ",A+2," ",A+6
GOTO 10
100 REM PRIMALITY BY TRIAL DIVISION
LET Z = 1
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|Wren}}==
| |||