Primality by Wilson's theorem: Difference between revisions
m
→{{header|Julia}}
(julia example) |
|||
Line 183:
=={{header|Julia}}==
<lang julia>function modfact(n, p)
ret =
while n > 0
m = n % p
Line 218:
The first 40 Wilson primes above 7900 are: [7901, 7907, 7919, 7927, 7933, 7937, 7949, 7951, 7963, 7993, 8009, 8011, 8017, 8039, 8053, 8059, 8069, 8081, 8087, 8089, 8093, 8101, 8111, 8117, 8123, 8147, 8161, 8167, 8171, 8179, 8191, 8209, 8219, 8221, 8231, 8233, 8237, 8243, 8263, 8269]
</pre>
=={{header|Perl 6}}==
| |||