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 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Mertens-function/ALGOL-68/mertens-function.alg
View file

@ -9,11 +9,11 @@ BEGIN # compute values of the Mertens function #
# Print table #
print( ( "The first 99 Mertens numbers are:", newline ) );
print( ( " " ) );
INT k := 9;
INT left := 9;
FOR n TO 99 DO
print( ( whole( m[ n ], -3 ) ) );
IF ( k -:= 1 ) = 0 THEN
k := 10;
IF ( left -:= 1 ) = 0 THEN
left := 10;
print( ( newline ) )
FI
OD;