aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Sylvesters-sequence/ALGOL-68/sylvesters-sequence.alg
View file

@ -1,9 +1,9 @@
BEGIN # calculate elements of Sylvestor's Sequence #
PR precision 200 PR # set the number of digits for LONG LONG modes #
# returns an array set to the forst n elements of Sylvestor's Sequence #
BEGIN # calculate elements of Sylvester's Sequence #
PR precision 220 PR # set the number of digits for LONG LONG modes #
# returns an array set to the first n elements of Sylvester's Sequence #
# starting from 2, the elements are the product of the previous #
# elements plus 1 #
OP SYLVESTOR = ( INT n )[]LONG LONG INT:
OP SYLVESTER = ( INT n )[]LONG LONG INT:
BEGIN
[ 1 : n ]LONG LONG INT result;
LONG LONG INT product := 2;
@ -14,8 +14,8 @@ BEGIN # calculate elements of Sylvestor's Sequence #
OD;
result
END;
# find the first 10 elements of Sylvestor's Seuence #
[]LONG LONG INT seq = SYLVESTOR 10;
# find the first 10 elements of Sylvester's Seuence #
[]LONG LONG INT seq = SYLVESTER 10;
# show the sequence and sum the reciprocals #
LONG LONG REAL reciprocal sum := 0;
FOR i FROM LWB seq TO UPB seq DO