Anonymous user
Euler's sum of powers conjecture: Difference between revisions
Euler's sum of powers conjecture (view source)
Revision as of 14:35, 15 September 2016
, 7 years ago→{{header|COBOL}}
Line 527:
=={{header|COBOL}}==
<lang cobol>
IDENTIFICATION DIVISION.
PROGRAM-ID. EULER.
Line 535 ⟶ 532:
FILE SECTION.
WORKING-STORAGE SECTION.
1 TABLE-LENGTH CONSTANT 250.
1 SEARCHING-FLAG PIC 9.
88 FINISHED-SEARCHING VALUE IS 1
Line 544 ⟶ 542:
3 D PIC 999 USAGE COMPUTATIONAL-5.
3 ABCD PIC 9(18) USAGE COMPUTATIONAL-5.
3 FIFTH-ROOT-OFFS PIC
3 POWER-COUNTER PIC 999 USAGE COMPUTATIONAL-5.
88 POWER-MAX VALUE
1 PRETTY.
3 A PIC ZZ9.
Line 560 ⟶ 558:
3 FILLER VALUE "^5.".
1 FIFTH-POWER-TABLE OCCURS
ASCENDING KEY IS FIFTH-POWER
INDEXED BY POWER-INDEX.
3 FIFTH-POWER PIC 9(18) USAGE COMPUTATIONAL-5.
PROCEDURE DIVISION.
MAIN-PARAGRAPH.
Line 572 ⟶ 570:
PERFORM VARYING
A IN CALC
FROM 1 BY 1 UNTIL A IN CALC =
AFTER B IN CALC
Line 600 ⟶ 598:
FIFTH-POWER(D IN CALC)
TO ABCD IN CALC.
SET POWER-INDEX TO 1.
SEARCH ALL FIFTH-POWER-TABLE
WHEN FIFTH-POWER(POWER-INDEX) = ABCD IN CALC
Line 615 ⟶ 613:
POWERS-OF-FIVE-TABLE-INIT.
PERFORM VARYING POWER-COUNTER FROM 1 BY 1 UNTIL POWER-MAX
COMPUTE FIFTH-POWER(POWER-COUNTER) =
POWER-COUNTER *
POWER-COUNTER *
POWER-COUNTER *
POWER-COUNTER *
POWER-COUNTER
END-COMPUTE
END-PERFORM.
Line 627 ⟶ 624:
END PROGRAM EULER.
</lang>
Output
| |||