Jump to content

Idoneal numbers: Difference between revisions

Idoneal numbers (view source)

Revision as of 12:15, 4 October 2022

109 bytes removed ,  1 year ago
→‎{{header|Action!}}: Slight simplification
(→‎{{header|ALGOL 68}}: Slight simplification)
(→‎{{header|Action!}}: Slight simplification)
Line 39:
n2 ==+ 1
idoneal = 1
a = 01
WHILE a < n2 AND idoneal = 1 DO
DO▼
ab == a + 1
IF a >= n2 THENDO
EXITab = a * b
ELSEIF IF ( ab + a + b ) > n OR idoneal = 0 THEN EXIT FI
EXITc = b + 1
ELSE▼
b = a + 1
DO
absum = aab + ( c * ( b + a ) )
IF (sum ab + a + b ) >= n OR idoneal = 0 THEN EXIT FI
c = bidoneal += 10
DO EXIT
ELSEIF sum = ab + ( b * c ) + ( a *> cn )THEN
IF sum = n THENEXIT
idoneal = 0ELSE
c ==+ EXIT1
ELSEIF sum > n THENFI
EXIT
ELSE
c ==+ 1
FI
OD
b ==+ 1
OD
FI b ==+ 1
▲ DO OD
▲ ELSEa ==+ 1
OD
IF idoneal THEN
Tigerofdarkness
3,048

edits

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