Data update

Task/Count-in-octal/Ada/count-in-octal.ada

@@ -1,10 +0,0 @@
-with Ada.Text_IO;
-
-procedure Octal is
-   package IIO is new Ada.Text_IO.Integer_IO(Integer);
-begin
-   for I in 0 .. Integer'Last loop
-      IIO.Put(I, Base => 8);
-      Ada.Text_IO.New_Line;
-   end loop;
-end Octal;

Task/Count-in-octal/Arturo/count-in-octal.arturo

@@ -1,3 +1,3 @@
 loop 1..40 'i ->
 	print ["number in base 10:" pad to :string i 2
-		   "number in octal:" pad as.octal i 2]
+		   "number in octal:" pad to :string .format:"o" i 2]

Task/Count-in-octal/COBOL/count-in-octal.cobol

@@ -1,44 +0,0 @@
-       >>SOURCE FREE
-IDENTIFICATION DIVISION.
-PROGRAM-ID. count-in-octal.
-
-ENVIRONMENT DIVISION.
-CONFIGURATION SECTION.
-REPOSITORY.
-    FUNCTION dec-to-oct
-    .
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  i                                   PIC 9(18).
-
-PROCEDURE DIVISION.
-    PERFORM VARYING i FROM 1 BY 1 UNTIL i = 0
-        DISPLAY FUNCTION dec-to-oct(i)
-    END-PERFORM
-    .
-END PROGRAM count-in-octal.
-
-
-IDENTIFICATION DIVISION.
-FUNCTION-ID. dec-to-oct.
-
-DATA DIVISION.
-LOCAL-STORAGE SECTION.
-01  rem                                 PIC 9.
-
-01  dec                                 PIC 9(18).
-
-LINKAGE SECTION.
-01  dec-arg                             PIC 9(18).
-
-01  oct                                 PIC 9(18).
-
-PROCEDURE DIVISION USING dec-arg RETURNING oct.
-    MOVE dec-arg TO dec *> Copy is made to avoid modifying reference arg.
-    PERFORM WITH TEST AFTER UNTIL dec = 0
-        MOVE FUNCTION REM(dec, 8) TO rem
-        STRING rem, oct DELIMITED BY SPACES INTO oct
-        DIVIDE 8 INTO dec
-    END-PERFORM
-    .
-END FUNCTION dec-to-oct.

Task/Count-in-octal/EasyLang/count-in-octal.easy

@@ -1,12 +1,6 @@
 func$ oct v .
-   while v > 0
-      r$ = v mod 8 & r$
-      v = v div 8
-   .
-   if r$ = ""
-      r$ = 0
-   .
-   return r$
+   if v <= 7 : return v
+   return oct (v div 8) & v mod 8
 .
 for i = 0 to 10
    print oct i

Task/Count-in-octal/Emacs-Lisp/count-in-octal.l

@@ -1,2 +0,0 @@
-(dotimes (i most-positive-fixnum) ;; starting from 0
-  (message "%o" i))

Task/Count-in-octal/Euphoria/count-in-octal.ex

@@ -1,6 +0,0 @@
-integer i
-i = 0
-while 1 do
-    printf(1,"%o\n",i)
-    i += 1
-end while

Task/Count-in-octal/PowerShell/count-in-octal.psh

@@ -1,5 +0,0 @@
-[int64]$i = 0
-While ( $True )
-    {
-    [Convert]::ToString( ++$i, 8 )
-    }

Task/Count-in-octal/VBScript/count-in-octal.vb

@@ -1,3 +0,0 @@
-For i = 0 To 20
-	WScript.StdOut.WriteLine Oct(i)
-Next