Jump to content

Idoneal numbers: Difference between revisions

Idoneal numbers (view source)

Revision as of 12:01, 4 October 2022

80 bytes removed ,  1 year ago
→‎{{header|ALGOL 68}}: Slight simplification
(→‎{{header|ALGOL 68}}: Slight simplification)
Line 104:
DO
FOR c FROM b + 1 TO n
WHILE INT bcsum = bab *+ ( c, ac* =( b + a *) c);
INT sum = ab + bc + ac;
sum <= n
AND count < max count
AND ( idoneal := sum /= n )
DO SKIP OD
Tigerofdarkness
3,048

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/331194"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information