Piprimes: Difference between revisions
Content added Content deleted
(add parigp) |
(add tinybasic) |
||
Line 216: | Line 216: | ||
done... |
done... |
||
</pre> |
</pre> |
||
=={{header|TinyBASIC}}== |
|||
<lang tinybasic> LET N = 0 |
|||
LET P = 0 |
|||
10 IF N = 22 THEN END |
|||
PRINT N |
|||
LET P = P + 1 |
|||
GOSUB 100 |
|||
20 IF Z = 1 THEN LET N = N + 1 |
|||
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}}== |
=={{header|Wren}}== |