Replace the slower versions of the XF4 and XF5.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. XFN.
      * Test program for the XF4 and XF5 procedures, which mimic GNU
      * COBOL's X"F4" and X"F5" library routines. Some tests are run to
      * compare their relative performance.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
      * Working storage for the XF4 and XF5 procedures.
       01  XFN-COMP-BYTE            BINARY-CHAR.
       01  XFN-COMP-FACTOR          BINARY-SHORT.
       01  XFN-COMP-PRODUCT         BINARY-CHAR.
       01  XFN-COMP-DIVIDEND        BINARY-CHAR.
       01  XFN-COMP-ARRAY.
           02  XFN-COMP-ELEMENT     BINARY-CHAR OCCURS 8.
       01  XFN-DISPLAY-BYTE         PIC ZZ9.
       01  XFN-DISPLAY-ARRAY.
           02  XFN-DISPLAY-ELEMENT  PIC 9 OCCURS 8.
       01  XFN-I BINARY-LONG.

      * General working storage for the rest of this program.
       01  WS-ROUTINE  PIC X(10).
       01  WS-TIME1    PIC X(8).
       01  WS-TIME2    PIC X(8).
       01  WS-I        BINARY-LONG.
       01  WS-LIMIT    BINARY-LONG.

       PROCEDURE DIVISION.
      *    Assign an arbitary value to the byte.
           MOVE 42 TO XFN-COMP-BYTE
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE

      *    Convert the byte to a table of 8 binary digits using XF5.
           DISPLAY "Testing the XF5 procedure:"
           PERFORM XF5 THRU XF5-EXIT
           DISPLAY "  byte: " XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY

      *    Reset the input data.
           MOVE 42 TO XFN-COMP-BYTE

      *    Do the same using CALL X"F5".
           DISPLAY 'Testing CALL X"F5":'
           CALL X"F5" USING XFN-COMP-BYTE XFN-COMP-ARRAY
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-COMP-ELEMENT(XFN-I)
                 TO XFN-DISPLAY-ELEMENT(XFN-I)
           END-PERFORM
           DISPLAY "  byte: " XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY

      *    Convert the table of binary digits back to a byte using XF4.
           DISPLAY "Testing the XF4 procedure:"
           MOVE 0 TO XFN-COMP-BYTE
           PERFORM XF4 THRU XF4-EXIT
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY
           DISPLAY "  byte: " XFN-DISPLAY-BYTE

      *    Do the same using CALL X"F4".
           DISPLAY 'Testing CALL X"F4":'
           MOVE 0 TO XFN-COMP-BYTE
           CALL X"F4" USING XFN-COMP-BYTE XFN-COMP-ARRAY
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY
           DISPLAY "  byte: " XFN-DISPLAY-BYTE

      *    Run some performance tests.

           MOVE "XF5" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE 'CALL X"F5"' TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE "XF4" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE 'CALL X"F4"' TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           DISPLAY "Press ENTER to exit ..."
           ACCEPT OMITTED
           GOBACK
           .

      ******************************************************************
      * XF4: Merges 8 binary digits into a single byte.                *
      ******************************************************************
       XF4.
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-DISPLAY-ELEMENT(XFN-I)
                 TO XFN-COMP-ELEMENT(XFN-I)
           END-PERFORM

           MOVE XFN-COMP-ELEMENT(8) TO XFN-COMP-BYTE
           IF XFN-COMP-ELEMENT(7) = 1  ADD   2 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(6) = 1  ADD   4 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(5) = 1  ADD   8 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(4) = 1  ADD  16 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(3) = 1  ADD  32 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(2) = 1  ADD  64 TO XFN-COMP-BYTE  END-IF
           IF XFN-COMP-ELEMENT(1) = 1  ADD 128 TO XFN-COMP-BYTE  END-IF
           .
       XF4-EXIT.
           EXIT
           .

      ******************************************************************
      * XF5: Splits a byte's bits into 8 binary digits.                *
      ******************************************************************
       XF5.
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE 0 TO XFN-COMP-ELEMENT(XFN-I)
           END-PERFORM

           IF XFN-COMP-BYTE > 127
               MOVE 1 TO XFN-COMP-ELEMENT(1)
               SUBTRACT 128 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 63
               MOVE 1 TO XFN-COMP-ELEMENT(2)
               SUBTRACT 64 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 31
               MOVE 1 TO XFN-COMP-ELEMENT(3)
               SUBTRACT 32 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 15
               MOVE 1 TO XFN-COMP-ELEMENT(4)
               SUBTRACT 16 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 7
               MOVE 1 TO XFN-COMP-ELEMENT(5)
               SUBTRACT 8 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 3
               MOVE 1 TO XFN-COMP-ELEMENT(6)
               SUBTRACT 4 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 1
               MOVE 1 TO XFN-COMP-ELEMENT(7)
               SUBTRACT 2 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 0
               MOVE 1 TO XFN-COMP-ELEMENT(8)
           END-IF

           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-COMP-ELEMENT(XFN-I)
                 TO XFN-DISPLAY-ELEMENT(XFN-I)
           END-PERFORM
           .
       XF5-EXIT.
           EXIT
           .

      ******************************************************************
      * BIG-LOOP: Execute the specified routine WS-LIMIT times. *
      ******************************************************************
       BIG-LOOP.
           MOVE 1000000 TO WS-LIMIT
           ACCEPT WS-TIME1 FROM TIME

           EVALUATE WS-ROUTINE
               WHEN = "XF5"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       PERFORM XF5 THRU XF5-EXIT
                   END-PERFORM
               WHEN = 'CALL X"F5"'
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       CALL X"F5" USING XFN-COMP-BYTE, XFN-COMP-ARRAY
                   END-PERFORM
               WHEN = "XF4"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE "0010101010" TO XFN-DISPLAY-ARRAY
                       PERFORM XF4 THRU XF4-EXIT
                   END-PERFORM
               WHEN = 'CALL X"F4"'
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       CALL X"F5" USING XFN-COMP-BYTE, XFN-COMP-ARRAY
                   END-PERFORM
               WHEN OTHER
                   DISPLAY "Invalid routine name: " WS-ROUTINE
                   GO TO BIG-LOOP-EXIT
           END-EVALUATE

           ACCEPT WS-TIME2 FROM TIME

           DISPLAY "Start/end times for " WS-LIMIT
                   " iterations of "      WS-ROUTINE ":"
           DISPLAY " " WS-TIME1(1:2) ":" WS-TIME1(3:2) ":"
                       WS-TIME1(5:2) "." WS-TIME1(7:2)
           DISPLAY " " WS-TIME2(1:2) ":" WS-TIME2(3:2) ":"
                       WS-TIME2(5:2) "." WS-TIME2(7:2)
                  .
       BIG-LOOP-EXIT.
           EXIT
           .

       IDENTIFICATION DIVISION.
       PROGRAM-ID. XFN.
      * Test program for the XF4 and XF5 procedures, which mimic
      * GNUCOBOL's X"F4" and X"F5" library routines. Some tests are run
      * to compare their relative performance.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
      * Working storage for the XF4 and XF5 procedures.
       01  XFN-COMP-BYTE            BINARY-CHAR.
       01  XFN-COMP-FACTOR          BINARY-SHORT.
       01  XFN-COMP-PRODUCT         BINARY-CHAR.
       01  XFN-COMP-DIVIDEND        BINARY-CHAR.
       01  XFN-COMP-ARRAY.
           02  XFN-COMP-ELEMENT     BINARY-CHAR OCCURS 8.
       01  XFN-DISPLAY-BYTE         PIC ZZ9.
       01  XFN-DISPLAY-ARRAY.
           02  XFN-DISPLAY-ELEMENT  PIC 9 OCCURS 8.
       01  XFN-I BINARY-LONG.

      * General working storage for the rest of this program.
       01  WS-ROUTINE  PIC X(10).
       01  WS-TIME1    PIC X(8).
       01  WS-TIME2    PIC X(8).
       01  WS-I        BINARY-LONG.
       01  WS-LIMIT    BINARY-LONG.

       PROCEDURE DIVISION.
      *    Assign an arbitary value to the byte.
           MOVE 42 TO XFN-COMP-BYTE
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE

      *    Convert the byte to a table of 8 binary digits using XF5.
           DISPLAY "Testing the XF5 procedure:"
           PERFORM XF5 THRU XF5-EXIT
           DISPLAY "  byte: " XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY

      *    Reset the input data.
           MOVE 42 TO XFN-COMP-BYTE

      *    Do the same using FAST-XF5.
           DISPLAY "Testing the FAST-XF5 procedure:"
           PERFORM FAST-XF5 THRU FAST-XF5-EXIT
           DISPLAY "  byte: " XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY

      *    Reset the input data.
           MOVE 42 TO XFN-COMP-BYTE

      *    Do the same using CALL X"F5".
           DISPLAY 'Testing CALL X"F5":'
           CALL X"F5" USING XFN-COMP-BYTE XFN-COMP-ARRAY
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-COMP-ELEMENT(XFN-I)
                 TO XFN-DISPLAY-ELEMENT(XFN-I)
           END-PERFORM
           DISPLAY "  byte: " XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY

      *    Convert the table of binary digits back to a byte using XF4.
           DISPLAY "Testing the XF4 procedure:"
           MOVE 0 TO XFN-COMP-BYTE
           PERFORM XF4 THRU XF4-EXIT
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY
           DISPLAY "  byte: " XFN-DISPLAY-BYTE

      *    Do the same using FAST-XF4.
           DISPLAY "Testing the FAST-XF4 procedure:"
           MOVE 0 TO XFN-COMP-BYTE
           PERFORM FAST-XF4 THRU FAST-XF4-EXIT
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY
           DISPLAY "  byte: " XFN-DISPLAY-BYTE

      *    Do the same using CALL X"F4".
           DISPLAY 'Testing CALL X"F4":'
           MOVE 0 TO XFN-COMP-BYTE
           CALL X"F4" USING XFN-COMP-BYTE XFN-COMP-ARRAY
           MOVE XFN-COMP-BYTE TO XFN-DISPLAY-BYTE
           DISPLAY "  bits: " XFN-DISPLAY-ARRAY
           DISPLAY "  byte: " XFN-DISPLAY-BYTE

      *    Run some performance tests.

           MOVE "XF5" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE "FAST-XF5" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE 'CALL X"F5"' TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE "XF4" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE "FAST-XF4" TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           MOVE 'CALL X"F4"' TO WS-ROUTINE
           PERFORM BIG-LOOP THRU BIG-LOOP-EXIT

           DISPLAY "Press ENTER to exit ..."
           ACCEPT OMITTED
           GOBACK
           .

      ******************************************************************
      * XF4: Merges 8 binary digits into a single byte. *
      ******************************************************************
       XF4.
           MOVE 0 TO XFN-COMP-BYTE
           MOVE 128 TO XFN-COMP-FACTOR

           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-DISPLAY-ELEMENT(XFN-I)
                 TO XFN-COMP-ELEMENT(XFN-I)
               MULTIPLY XFN-COMP-FACTOR BY XFN-COMP-ELEMENT(XFN-I)
                 GIVING XFN-COMP-PRODUCT
               ADD XFN-COMP-PRODUCT TO XFN-COMP-BYTE
               DIVIDE 2 INTO XFN-COMP-FACTOR
           END-PERFORM
           .
       XF4-EXIT.
           EXIT
           .

      ******************************************************************
      * FAST-XF4: Merges 8 binary digits into a single byte. *
      ******************************************************************
       FAST-XF4.
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-DISPLAY-ELEMENT(XFN-I)
                 TO XFN-COMP-ELEMENT(XFN-I)
           END-PERFORM

           MOVE XFN-COMP-ELEMENT(8) TO XFN-COMP-BYTE

           IF XFN-COMP-ELEMENT(7) = 1
               ADD 2 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(6) = 1
               ADD 4 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(5) = 1
               ADD 8 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(4) = 1
               ADD 16 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(3) = 1
               ADD 32 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(2) = 1
               ADD 64 TO XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-ELEMENT(1) = 1
               ADD 128 TO XFN-COMP-BYTE
           END-IF
           .
       FAST-XF4-EXIT.
           EXIT
           .

      ******************************************************************
      * XF5: Splits a byte's bits into 8 binary digits. *
      ******************************************************************
       XF5.
           MOVE 128 TO XFN-COMP-DIVIDEND

           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               DIVIDE XFN-COMP-DIVIDEND INTO XFN-COMP-BYTE
               GIVING XFN-COMP-ELEMENT(XFN-I) REMAINDER XFN-COMP-BYTE
               DIVIDE 2 INTO XFN-COMP-DIVIDEND
               MOVE XFN-COMP-ELEMENT(XFN-I)
                 TO XFN-DISPLAY-ELEMENT(XFN-I)
           END-PERFORM
           .
       XF5-EXIT.
           EXIT
           .

      ******************************************************************
      * FAST-XF5: Splits a byte's bits into 8 binary digits. *
      ******************************************************************
       FAST-XF5.
           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE 0 TO XFN-COMP-ELEMENT(XFN-I)
           END-PERFORM

           IF XFN-COMP-BYTE > 127
               MOVE 1 TO XFN-COMP-ELEMENT(1)
               SUBTRACT 128 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 63
               MOVE 1 TO XFN-COMP-ELEMENT(2)
               SUBTRACT 64 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 31
               MOVE 1 TO XFN-COMP-ELEMENT(3)
               SUBTRACT 32 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 15
               MOVE 1 TO XFN-COMP-ELEMENT(4)
               SUBTRACT 16 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 7
               MOVE 1 TO XFN-COMP-ELEMENT(5)
               SUBTRACT 8 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 3
               MOVE 1 TO XFN-COMP-ELEMENT(6)
               SUBTRACT 4 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 1
               MOVE 1 TO XFN-COMP-ELEMENT(7)
               SUBTRACT 2 FROM XFN-COMP-BYTE
           END-IF
           IF XFN-COMP-BYTE > 0
               MOVE 1 TO XFN-COMP-ELEMENT(8)
           END-IF

           PERFORM VARYING XFN-I FROM 1 BY 1 UNTIL XFN-I > 8
               MOVE XFN-COMP-ELEMENT(XFN-I)
                 TO XFN-DISPLAY-ELEMENT(XFN-I)
           END-PERFORM

           .
       FAST-XF5-EXIT.
           EXIT
           .

      ******************************************************************
      * BIG-LOOP: Execute the specified routine WS-LIMIT times. *
      ******************************************************************
       BIG-LOOP.
           MOVE 1000000 TO WS-LIMIT
           ACCEPT WS-TIME1 FROM TIME

           EVALUATE WS-ROUTINE
               WHEN = "XF5"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       PERFORM XF5 THRU XF5-EXIT
                   END-PERFORM
               WHEN = "FAST-XF5"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       PERFORM FAST-XF5 THRU FAST-XF5-EXIT
                   END-PERFORM
               WHEN = 'CALL X"F5"'
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       CALL X"F5" USING XFN-COMP-BYTE, XFN-COMP-ARRAY
                   END-PERFORM
               WHEN = "XF4"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE "0010101010" TO XFN-DISPLAY-ARRAY
                       PERFORM XF4 THRU XF4-EXIT
                   END-PERFORM
               WHEN = "FAST-XF4"
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE "0010101010" TO XFN-DISPLAY-ARRAY
                       PERFORM FAST-XF4 THRU FAST-XF4-EXIT
                   END-PERFORM
               WHEN = 'CALL X"F4"'
                   PERFORM VARYING WS-I FROM 1 BY 1
                     UNTIL WS-I > WS-LIMIT
                       MOVE 42 TO XFN-COMP-BYTE
                       CALL X"F5" USING XFN-COMP-BYTE, XFN-COMP-ARRAY
                   END-PERFORM
               WHEN OTHER
                   DISPLAY "Invalid routine name: " WS-ROUTINE
                   GO TO BIG-LOOP-EXIT
           END-EVALUATE

           ACCEPT WS-TIME2 FROM TIME

           DISPLAY "Start/end times for " WS-LIMIT
                   " iterations of "      WS-ROUTINE ":"
           DISPLAY " " WS-TIME1(1:2) ":" WS-TIME1(3:2) ":"
                       WS-TIME1(5:2) "." WS-TIME1(7:2)
           DISPLAY " " WS-TIME2(1:2) ":" WS-TIME2(3:2) ":"
                       WS-TIME2(5:2) "." WS-TIME2(7:2)
                  .
       BIG-LOOP-EXIT.
           EXIT
           .


何となく改行した

何となく改行した

https://paiza.jp/poh/hatsukoi/share/2a3f0bcc

       *> Try POH
       *> author: Leonardone @ NEETSDKASU
       *> ↓ 1行あたりの字数の目安
       *>==============================================================$
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MAIN.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       REPOSITORY.
              FUNCTION ALL INTRINSIC.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ANSWER-VALUES.
              05 INT-S    PIC 9(3).
              05 INT-T    PIC 9(3).
              05 INT-I    PIC 9(3).
              05 STR-R    PIC X(100).
       PROCEDURE DIVISION.
       MAIN-ROUTINE SECTION.
       000-MAIN.

              ACCEPT INT-S.
              ACCEPT INT-T.

              PERFORM WITH TEST AFTER
              VARYING INT-I FROM 1 BY 1 UNTIL INT-I >= INT-S
                     MOVE "-" TO STR-R(INT-I:1)
              END-PERFORM.

              MOVE "+" TO STR-R(INT-T:1).

              DISPLAY TRIM(STR-R).

       END PROGRAM MAIN.


Added test data

Added test data

fatal: unable to access 'https://github.com/tectronics/cortex-vfx.git/': The requested URL returned error: 403


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/c0f814ae

fatal: unable to access 'https://github.com/neetsdkasu/Paiza-POH-MyAnswers.git/': The requested URL returned error: 403


Refactoring, nice source

Refactoring, nice source

fatal: unable to access 'https://github.com/BernardTatin/ideal-cobol.git/': The requested URL returned error: 403


COBOL Fizz Buzz

COBOL Fizz Buzz

fatal: unable to access 'https://github.com/edmathew/playground.git/': The requested URL returned error: 403


fatal: unable to access 'https://github.com/duaneking/rockstar_test.git/': The requested URL returned error: 403


Added test data

Added test data

fatal: unable to access 'https://github.com/davidsminor/cortex.git/': The requested URL returned error: 403


Removing trailing spaces from DISPLAY is not an easy job with COBOL


Forgetten merge

Forgetten merge


原因不明でうまくゆかないようだ

原因不明でうまくゆかないようだ


Added test data

Added test data


add missed test datafile

add missed test datafile

fatal: unable to access 'https://github.com/d1vanov/qt4-mimetypes.git/': The requested URL returned error: 403


2019-11b

fatal: unable to access 'https://github.com/elwinar/advent-of-code.git/': The requested URL returned error: 403


2019-5b: Booooooyah!!!!

2019-5b: Booooooyah!!!!


2019-9b


こんなのダメすぎるコード

こんなのダメすぎるコード

result:
https://paiza.jp/poh/joshibato/tsubame/result/2eb7e4e8


Slow start, but I can do what I want

Slow start, but I can do what I want


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/f5ebdf87


Testing how GitHub language colors work

Testing how GitHub language colors work

fatal: unable to access 'https://github.com/IonicaBizau/node-cobol.git/': The requested URL returned error: 403


Display Cobol source skeleton.

Display Cobol source skeleton.


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/81d60d9c


BKP diario

BKP diario

fatal: unable to access 'https://github.com/flavio-casacurta/File-FixedS.git/': The requested URL returned error: 403


Start of basic COBOL calculator.

Start of basic COBOL calculator.

Currently the code does not compile.

fatal: unable to access 'https://github.com/scottieinor/simple-calc-langs.git/': The requested URL returned error: 403


Create filereader.ccp

Create filereader.ccp

This is a sample program that reads one file and writes another

fatal: unable to access 'https://github.com/timjinx/Sample-Repo.git/': The requested URL returned error: 403


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/d1d57ff3


うーん、テストケース5に謎が残る

うーん、テストケース5に謎が残る

result:
https://paiza.jp/poh/ando/share/47275834

最初
    IF q(k) = t THEN
にしてたんだがテストケース5が通らなかった
コーナーケースが全く想定できなかったが
    IF TRIM(q(k)) = TRIM(t) THEN
TRIMをつけたらテストケース5が通った
よくわからん


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/f38d4ae2


Program is INITIAL and we over control the string length


Added Euler problem 12 solution.

Added Euler problem 12 solution.

fatal: unable to access 'https://github.com/dennisdjensen/sketchbook.git/': The requested URL returned error: 403


Adding COBOL example using the Gary Cutler compiler control program

fatal: unable to access 'https://github.com/pathawks/pygments.git/': The requested URL returned error: 403


fatal: unable to access 'https://github.com/aswinpj/Pygments.git/': The requested URL returned error: 403


Return to GNUCobol 2.0

Return to GNUCobol 2.0


2019-13b


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/7d5de73e


Added test data

Added test data

fatal: unable to access 'https://github.com/ruschelp/cortex-vfx.git/': The requested URL returned error: 403


create bubblesort.cbl

create bubblesort.cbl

fatal: unable to access 'https://github.com/ZoranPandovski/al-go-rithms.git/': The requested URL returned error: 403


Added test data

Added test data


Euler 13: 10 first digits of large sum.

Euler 13: 10 first digits of large sum.


cobol

cobol

fatal: unable to access 'https://github.com/rocketcloudsolutions/RCSLunchtime.git/': The requested URL returned error: 403


Add add programm to add item to the in-items file

fatal: unable to access 'https://github.com/emilybache/GildedRose-Refactoring-Kata.git/': The requested URL returned error: 403


どうしてこうなった・・・

どうしてこうなった・・・

result:
https://paiza.jp/poh/ando/share/a8a118da

fatal: unable to access 'https://github.com/neetsdkasu/Paiza-POH-MyAnswers.git/': The requested URL returned error: 403


テストケース3で落ちて40点・・・見直すか

テストケース3で落ちて40点・・・見直すか


Create NtemModifFunc.ccp

Create NtemModifFunc.ccp

fatal: unable to access 'https://github.com/YvartWalter/MLDF.git/': The requested URL returned error: 403


fatal: unable to access 'https://github.com/duaneking/rockstar_test.git/': The requested URL returned error: 403


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/69ae8c11


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/d3f79921


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/79758742


[DOC] Added sequences_in_depth demo for online tutorial.

git-svn-id: a7f2a8f7432d210e972fb03898013d213e2b549b@12881 e6417c60-b987-48fd-844e-b20f0fcc1017

fatal: unable to access 'https://github.com/gkno/seqan.git/': The requested URL returned error: 403


fatal: unable to access 'https://github.com/tomstuart/pygments.git/': The requested URL returned error: 403


Create answer.cob

Create answer.cob

コボルに初挑戦。疲れた・・・
Result:
https://paiza.jp/poh/joshibato/matsue-ruby/result/eabe3df5


fatal: unable to access 'https://github.com/spencerlyon2/pygments.git/': The requested URL returned error: 403


Using an array

Using an array

fatal: unable to access 'https://github.com/BernardTatin/ideal-cobol.git/': The requested URL returned error: 403


60点

60点

https://paiza.jp/poh/hatsukoi/share/91d341e8


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/e58b6584


Added images.cbl

Added images.cbl

fatal: unable to access 'https://github.com/IonicaBizau/node-cobol.git/': The requested URL returned error: 403


Added test data

Added test data

fatal: unable to access 'https://github.com/tectronics/cortex-vfx.git/': The requested URL returned error: 403


Added hello-world.

Added hello-world.


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/b2da893e


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/2044a372


Create Main.cob

Create Main.cob

https://paiza.jp/poh/hatsukoi/share/552d0391


Added test data

Added test data

fatal: unable to access 'https://github.com/davidsminor/cortex.git/': The requested URL returned error: 403


Euler 18 and 67: Maximum path sum for triangles.

fatal: unable to access 'https://github.com/dennisdjensen/sketchbook.git/': The requested URL returned error: 403


Euler 15: The number of lattice paths in a 20x20 grid.


fatal: unable to access 'https://github.com/dscorbett/pygments.git/': The requested URL returned error: 403


paiza.ioだとtimeoutだったけどpohだと通った

paiza.ioだとtimeoutだったけどpohだと通った

result:
https://paiza.jp/poh/ando/share/a5ca2438


A better but still ugly algorithm to fill the final table


Euler 16: Digit sum of power digits of 2 ** 1000.


Constants and overflow control does not solve the problem.


Added test data

Added test data