Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
Line 1,328: | Line 1,328: | ||
=={{header|PL/M}}== |
=={{header|PL/M}}== |
||
{{works with|8080 PL/M Compiler}} under CP/M (or an emulator) |
{{works with|8080 PL/M Compiler}} ... under CP/M (or an emulator) |
||
<lang pli>100H: /* FIND PRIMES USING WILSON'S THEOREM: */ |
<lang pli>100H: /* FIND PRIMES USING WILSON'S THEOREM: */ |
||
/* P IS PRIME IF ( ( P - 1 )! + 1 ) MOD P = 0 */ |
/* P IS PRIME IF ( ( P - 1 )! + 1 ) MOD P = 0 */ |