Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
(add RPL) |
||
| Line 2,397: | Line 2,397: | ||
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
||
</pre> |
</pre> |
||
=={{header|RPL}}== |
|||
{{works with|HP|48S}} |
|||
≪ '''IF''' DUP 1 > '''THEN''' |
|||
DUP → p j |
|||
≪ 1 |
|||
'''WHILE''' 'j' DECR 1 > '''REPEAT''' j * p MOD '''END''' |
|||
1 + p MOD NOT |
|||
≫ |
|||
'''ELSE''' DROP 0 '''END''' |
|||
≫ '<span style="color:blue">WILSON?<span>' STO |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||