Greedy algorithm for Egyptian fractions: Difference between revisions
Content added Content deleted
(Added Algol 68) |
(→{{header|ALGOL 68}}: typo in comment, doh!) |
||
| Line 48: | Line 48: | ||
Uses Algol 68G's LONG LONG INT for large integers. |
Uses Algol 68G's LONG LONG INT for large integers. |
||
<lang algol68>BEGIN # compute some Egytian fractions # |
<lang algol68>BEGIN # compute some Egytian fractions # |
||
PR precision 2000 PR # set the number of digits for LONG |
PR precision 2000 PR # set the number of digits for LONG LONG INT # |
||
PROC gcd = ( LONG LONG INT a, b )LONG LONG INT: |
PROC gcd = ( LONG LONG INT a, b )LONG LONG INT: |
||
IF b = 0 THEN |
IF b = 0 THEN |
||