Data update

Task/Character-codes/EMal/character-codes.emal

@@ -4,14 +4,11 @@ writeLine(chr(97))  # prints "a"
 writeLine(ord("π")) # prints "960"
 writeLine(chr(960)) # prints "π"
 writeLine()
-var cps = int[]
+var cps ← int[]
 for each var c in text["a", "π", "字", "🐘"]
-  var cp = ord(c)
+  var cp ← ord(c)
   cps.append(cp)
-  writeLine(c + " = " + cp)
+  writeLine(c, " = ", cp)
 end
 writeLine()
-for each int i in cps
-  var c = chr(i)
-  writeLine(i + " = " + c)
-end
+cps.list(<int i|writeLine(i, " = ", chr(i)))

Task/Character-codes/PL-I-80/character-codes.pli

@@ -0,0 +1,8 @@
+char_codes: procedure options (main);
+  dcl ch char(1);
+  dcl n fixed bin;
+  ch = 'a';
+  n = 97;
+  put skip edit (ch,' = ',rank(ch)) (a, a, f(2));
+  put skip edit (n,' = ',ascii(n)) (f(2), a, a);
+end char_codes;