Primality by trial division: Difference between revisions
Content added Content deleted
| Line 823: | Line 823: | ||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
<lang forth>: prime |
<lang forth>: ?prime ( n -- f ) |
||
dup 2 < if drop false |
dup 2 < if drop false |
||
else dup 2 = if drop true |
else dup 2 = if drop true |
||