Data update

Task/Show-ASCII-table/11l/show-ascii-table.11l

@@ -1,4 +1,4 @@
-L(i) 16
+L(i) 0.<16
    L(j) (32 + i .. 127).step(16)
       String k
       I j == 32

Task/Show-ASCII-table/Ada/show-ascii-table.ada

@@ -1,23 +0,0 @@
-with Ada.Text_IO;         use Ada.Text_IO;
-with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
-
-procedure Ascii_Table is
-   N : Integer;
-begin
-   for R in 0 .. 15 loop
-      for C in 0 .. 5 loop
-         N := 32 + 16 * C + R;
-         Put (N, 3);
-         Put (" : ");
-         case N is
-            when 32 =>
-               Put ("Spc  ");
-            when 127 =>
-               Put ("Del  ");
-            when others =>
-               Put (Character'Val (N) & "    ");
-         end case;
-      end loop;
-      New_Line;
-   end loop;
-end Ascii_Table;

Task/Show-ASCII-table/Arturo/show-ascii-table.arturo

@@ -1,9 +1,9 @@
 loop 32..127 'num [
-    k: ø
-    case [num]
-        when? [=32]  -> k: "␠"
-        when? [=127] -> k: "␡"
-        else         -> k: to :string to :char num
+    k: case num [
+        32      -> "␠"
+        127     -> "␡"
+        any     -> to :string to :char num
+    ]
 
     prints pad ~"|num|: |k|" 10
     if 1 = num%6 -> print ""

Task/Show-ASCII-table/COBOL/show-ascii-table.cobol

@@ -1,22 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. CHARSET.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01 CHARCODE PIC 9(3) VALUE 32.
-PROCEDURE DIVISION.
-MAIN-PROCEDURE.
-PERFORM UNTIL CHARCODE=128
-DISPLAY FUNCTION CONCATENATE(
-    FUNCTION CONCATENATE(
-        CHARCODE,
-        " : "
-    ),
-    FUNCTION CONCATENATE(
-        FUNCTION CHAR(CHARCODE),
-        "   "
-    )
-)
-WITH NO ADVANCING
-ADD 1 TO CHARCODE
-END-PERFORM.
-END PROGRAM CHARSET.