Anonymous user
Wilson primes of order n: Difference between revisions
m
→{{header|REXX}}: changed a comment.
SqrtNegInf (talk | contribs) (Added Perl) |
m (→{{header|REXX}}: changed a comment.) |
||
Line 247:
<lang rexx>/*REXX program finds and displays Wilson primes: a prime P such that P**2 divides:*/
/*────────────────── (n-1)! * (P-n)! - (-1)**n where n is 1 ──◄ 11, and P < 18.*/
parse arg oLO oHI hip . /*obtain optional
if oLO=='' | oLO=="," then oLO= 1 /*Not specified? Then use the default.*/
if oHI=='' | oHI=="," then oHI= 11 /* " " " " " " */
| |||