Zsigmondy numbers: Difference between revisions
→{{header|ALGOL 68}}: Slight optimisation
(→{{header|ALGOL 68}}: Notes) |
(→{{header|ALGOL 68}}: Slight optimisation) |
||
(One intermediate revision by the same user not shown) | |||
Line 54:
=={{header|ALGOL 68}}==
64-bit integers are needed
<syntaxhighlight lang="algol68">
BEGIN # find some Zsigmondy numbers #
Line 105:
INTEGER d := 1;
INTEGER max d := isqrt( an minus bn );
WHILE ( d +:= 1 ) <= max d AND largest divisor <= max d DO
IF an minus bn MOD d = 0 THEN
# d is a divisor of a^n - b^n #
|