Data commit

Task/Naming-conventions/ALGOL-68/naming-conventions-1.alg

@@ -0,0 +1,7 @@
+MODE ℵ SIMPLEOUT = UNION (≮ℒ INT≯, ≮ℒ REAL≯, ≮ℒ COMPL≯, BOOL, ≮ℒ BITS≯, CHAR, [ ] CHAR);
+PROC ℓ cos = (ℒ REAL x) ℒ REAL: ¢ a ℒ real value close to the cosine of 'x' ¢;
+
+PROC ℓ complex cos = (ℒ COMPL z) ℒ COMPL: ¢ a ℒ complex value close to the cosine of 'z' ¢;
+
+PROC ℓ arccos = (ℒ REAL x) ℒ REAL: ¢ if ABS x ≤ ℒ 1, a ℒ real value close
+      to the inverse cosine of 'x', ℒ 0 ≤ ℒ arccos (x) ≤ ℒ pi ¢;

Task/Naming-conventions/ALGOL-68/naming-conventions-2.alg

@@ -0,0 +1,6 @@
+PROC long long cos = (LONG LONG REAL x) LONG LONG REAL: ¢ a ℒ real value close to the cosine of 'x' ¢;
+
+PROC long long complex cos = (LONG LONG COMPL z) LONG LONG COMPL: ¢ a ℒ complex value close to the cosine of 'z' ¢;
+
+PROC long long arccos = (LONG LONG REAL x) LONG LONG REAL: ¢ if ABS x ≤ ℒ 1, a ℒ real value close
+      to the inverse cosine of 'x', ℒ 0 ≤ ℒ arccos (x) ≤ ℒ pi ¢;

Task/Naming-conventions/ALGOL-68/naming-conventions-3.alg

@@ -0,0 +1,8 @@
+'pr' quote 'pr'
+'mode' 'xint' = 'int';
+'xint' sum sq:=0;
+'for' i 'while'
+  sum sq≠70×70
+'do'
+  sum sq+:=i↑2
+'od'

Task/Naming-conventions/ALGOL-68/naming-conventions-4.alg

@@ -0,0 +1,8 @@
+.PR UPPER .PR
+MODE XINT = INT;
+XINT sum sq:=0;
+FOR i WHILE
+  sum sq/=70*70
+DO
+  sum sq+:=i**2
+OD

Task/Naming-conventions/ALGOL-68/naming-conventions-5.alg

@@ -0,0 +1,8 @@
+.PR POINT .PR
+.MODE .XINT = .INT;
+.XINT SUM SQ:=0;
+.FOR I .WHILE
+  SUM SQ .NE 70*70
+.DO
+  SUM SQ .PLUSAB I .UP 2
+.OD

Task/Naming-conventions/ALGOL-68/naming-conventions-6.alg

@@ -0,0 +1,8 @@
+.PR RES .PR
+mode .xint = int;
+.xint sum sq:=0;
+for i while
+  sum sq≠70×70
+do
+  sum sq+:=i↑2
+od