Carmichael 3 strong pseudoprimes: Difference between revisions
m
→{{header|Fortran}}
m (→{{header|Fortran}}: Agh. Remove detritus.) |
|||
Line 411:
ISPRIME = .FALSE. !Most numbers aren't prime.
DO F = 2,SQRT(DFLOAT(N)) !Wince...
IF (MOD(N,F).EQ.0) RETURN !Not even avoiding even numbers
END DO !Nice and brief, though.
ISPRIME = .TRUE. !No factor found.
| |||