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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Literals-String/ALGOL-68/literals-string-1.alg Normal file
View file

@ -0,0 +1 @@
CHAR charx = "z";

6
Task/Literals-String/ALGOL-68/literals-string-10.alg Normal file
View file

@ -0,0 +1,6 @@
INT pages=100, lines=25, characters=80;
FILE bookf; FLEX[pages]FLEX[lines]FLEX[characters]CHAR book;
associate(bookf, book);
# following putf inserts the string " Line 4 indented 5" on page 3 #
putf(bookf, $3p"Page 3"4l5x"Line 4 indented 5"$)

3
Task/Literals-String/ALGOL-68/literals-string-2.alg Normal file
View file

@ -0,0 +1,3 @@
[]CHAR charxyz = "xyz";
STRING stringxyz = "xyz";
FORMAT twonewlines = $ll$, threenewpages=$ppp$, fourbackspaces=$bbbb$;

2
Task/Literals-String/ALGOL-68/literals-string-3.alg Normal file
View file

@ -0,0 +1,2 @@
.PR QUOTE .PR
[]'CHAR' CHARXYZ = "XYZ";

1
Task/Literals-String/ALGOL-68/literals-string-4.alg Normal file
View file

@ -0,0 +1 @@
MODE STRING = FLEX[1:0]CHAR;

1
Task/Literals-String/ALGOL-68/literals-string-5.alg Normal file
View file

@ -0,0 +1 @@
BYTES bytesabc = bytes pack("abc");

1
Task/Literals-String/ALGOL-68/literals-string-6.alg Normal file
View file

@ -0,0 +1 @@
STRING stringquote = """I'll be back."" - The Terminator";

3
Task/Literals-String/ALGOL-68/literals-string-7.alg Normal file
View file

@ -0,0 +1,3 @@
STRING linexyz := "line X;" +
"line Y;" +
"line Z;";

2
Task/Literals-String/ALGOL-68/literals-string-8.alg Normal file
View file

@ -0,0 +1,2 @@
FILE linef; STRING line;
associate(linef, line);

3
Task/Literals-String/ALGOL-68/literals-string-9.alg Normal file
View file

@ -0,0 +1,3 @@
FORMAT my_symbol = $"SYMBOL"$;
FORMAT foo = $"prefix_"f(my_symbol)"_suffix"$;
putf(linef ,foo);