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/Square-form-factorization/ALGOL-68/square-form-factorization.alg
View file

@ -93,8 +93,8 @@ BEGIN # Daniel Shanks's Square Form Factorization (SquFoF) - based on the Wren s
print( ( "----------------------------------------", newline ) );
FOR example FROM LWB examples TO UPB examples DO
INTEGER n = examples[ example ];
INTEGER fact = squfof( n );
STRING quot = IF fact = 0 THEN "fail" ELSE whole( n OVER fact, 0 ) FI;
print( ( whole( n, -20 ), " ", whole( fact, -10 ), " ", quot, newline ) )
INTEGER fctr = squfof( n );
STRING quot = IF fctr = 0 THEN "fail" ELSE whole( n OVER fctr, 0 ) FI;
print( ( whole( n, -20 ), " ", whole( fctr, -10 ), " ", quot, newline ) )
OD
END