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 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Formatted-numeric-output/ALGOL-68/formatted-numeric-output.alg
View file

@ -1,4 +1,4 @@
main:(
#main:# (
REAL r=exp(pi)-pi;
print((r,newline));
printf(($g(-16,4)l$,-r));
@ -10,8 +10,8 @@ main:(
printf(($+dddd.ddddl$,r));
printf(($ddddd.ddddl$,r));
printf(($zzzzd.ddddl$,r));
printf(($zzzz-d.ddddl$,r));
printf(($zzzz-d.ddddedl$,r));
printf(($zzzz-d.ddddeddl$,r));
printf(($4z-d.4de4dl$,r))
printf(($zzzz-dd.ddddl$,-r));
printf(($zzzz-dd.dddde-ddl$,-r));
printf(($zz-d.dddde+ddl$,-r));
printf(($4z-d.4de+4dl$,r))
)

11
Task/Formatted-numeric-output/M2000-Interpreter/formatted-numeric-output.m2000
View file

@ -1 +1,10 @@
Print str$(7.125,"00000.000")
Locale 1032
Print str$(7.125,"00000.000")="00007,125" ' Αληθές
// multiple column print
Print $("00000.000"), 7.125, 100, 200.567
Print $("")
Locale 1033
Print str$(7.125,"00000.000")="00007.125" ' True
// multiple column print
Print $("00000.000"), 7.125, 100, 200.567
Print $("")