Sylvester's sequence: Difference between revisions

Line 25:

=={{header|ALGOL 68}}==

Uses Algol 68G's LONG LONG INT and LONG LONG REAL which have specifiable precision. The sum of the ~~reciprocols~~ in the output has been manually edited to replace a large number of nines with ... to reduce the width.

Uses Algol 68G's LONG LONG INT and LONG LONG REAL which have specifiable precision. The sum of the reciprocals in the output has been manually edited to replace a large number of nines with ... to reduce the width.

<lang algol68>BEGIN # calculate elements of Sylvestor's Sequence #

PR precision 200 PR # set the number of digits for LONG LONG modes #

Line 44:

# find the first 10 elements of Sylvestor's Seuence #

[]LONG LONG INT seq = SYLVESTOR 10;

# show the sequence and sum the ~~reciprocols~~ #

# show the sequence and sum the reciprocals #

LONG LONG REAL ~~reciprocol~~ sum := 0;

LONG LONG REAL reciprocal sum := 0;

FOR i FROM LWB seq TO UPB seq DO

print( ( whole( seq[ i ], 0 ), newline ) );

~~reciprocol~~ sum +:= 1 / seq[ i ]

reciprocal sum +:= 1 / seq[ i ]

OD;

print( ( "Sum of ~~reciprocols~~: ", ~~reciprocol~~ sum, newline ) )

print( ( "Sum of reciprocals: ", reciprocal sum, newline ) )

END

</lang>

Line 65:

12864938683278671740537145998360961546653259485195807

165506647324519964198468195444439180017513152706377497841851388766535868639572406808911988131737645185443

Sum of ~~reciprocols~~: +9.99999999999999999999999999999999999999999...999999999999999999999999999964e -1

Sum of reciprocals: +9.99999999999999999999999999999999999999999...999999999999999999999999999964e -1

</pre>