Data update

Task/Twos-complement/Ada/twos-complement.ada

@@ -1,10 +0,0 @@
-with Ada.Text_IO;
-
-procedure Twos_Complement is
-   type Number is mod 2 ** 32;
-   A : constant Number := 42;
-   B : constant Number := not A + 1;
-   Is_Negative : constant Boolean := A + B = 0;
-begin
-   Ada.Text_IO.Put_Line ("B = -A is " & Is_Negative'Image);
-end Twos_Complement;

Task/Twos-complement/COBOL/twos-complement.cobol

@@ -1,31 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Twos_complement.
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01 d PIC S9(7) COMP-5 VALUE 1234567.
-       01 neg-d PIC S9(7) COMP-5.
-       01 neg-d1 PIC S9(7) COMP-5.
-       01 neg-b PIC S9(7) COMP-5.
-       01 d2 PIC S9(7) COMP-5.
-       01 d1 PIC S9(7) COMP-5.
-       01 b OCCURS 9 TIMES PIC S9(7) COMP-5.
-       01 i PIC 9(2) VALUE 1.
-       PROCEDURE DIVISION.
-           COMPUTE neg-d = -d
-           COMPUTE neg-d1 = -d + 1
-           COMPUTE d2 = d - 2
-           COMPUTE d1 = d - 1
-           MOVE neg-d TO b(1)
-           MOVE neg-d1 TO b(2)
-           MOVE -2 TO b(3)
-           MOVE -1 TO b(4)
-           MOVE 0 TO b(5)
-           MOVE 1 TO b(6)
-           MOVE 2 TO b(7)
-           MOVE d2 TO b(8)
-           MOVE d1 TO b(9)
-           PERFORM VARYING i FROM 1 BY 1 UNTIL i > 9
-               COMPUTE neg-b = -b(i)
-               DISPLAY b(i) " -> " neg-b
-           END-PERFORM
-           STOP RUN.