aoc-2015/jour05/jour5.cob

       IDENTIFICATION DIVISION.
        PROGRAM-ID. jour-cinq.

       ENVIRONMENT DIVISION.
          INPUT-OUTPUT SECTION.
          FILE-CONTROL.
               SELECT FILE1 ASSIGN TO "input"
               ORGANIZATION LINE SEQUENTIAL.

       DATA DIVISION.
         FILE SECTION.
         FD FILE1.
           01 INPUT-FILE.
             02 STR PIC A(17).

         WORKING-STORAGE SECTION.
           01 MY-FILE.
             02 MY-STR PIC A(17).
           01 FILE-STATUS PIC X VALUE 'N'.
             88 EOF VALUE 'Y'.
           77 NB-NICE-PREM PIC 9(4) VALUE 0.
           77 NB-NICE-DEUX PIC 9(4) VALUE 0.

       PROCEDURE DIVISION.
       main.
           OPEN INPUT FILE1.
           PERFORM UNTIL EOF
              READ FILE1 RECORD INTO MY-FILE
      * Lorsqu’on arrive à la fin du fichier, on met Y pour le signaler
              AT END MOVE 'Y' TO FILE-STATUS
              NOT AT END CALL "hub" USING
                      BY CONTENT MY-STR,
                      BY REFERENCE NB-NICE-PREM
                      BY REFERENCE NB-NICE-DEUX
      * On passe par référence NB-NICE pour les incrémenter
                      END-CALL
              END-READ
           END-PERFORM.
           DISPLAY "Nombres de bonnes chaines :" END-DISPLAY.
           DISPLAY "Dans la partie 1 : " NB-NICE-PREM END-DISPLAY.
           DISPLAY "Dans la partie 2 : " NB-NICE-DEUX END-DISPLAY.
           CLOSE FILE1.
           STOP RUN.

      *****************************************************************
      * hub : exécute les 2 fonctions pour les 2 parties
      * STR : la chaine à passer en paramètre aux deux fonctions
      * NB-PREM : (REFERENCE) nombre bonnes chaines partie 1
      * NB-DEUX : (REFERENCE) nombre bonnes chaines partie 2
      * Ces 2 variables seront incrémentées
      *****************************************************************

       IDENTIFICATION DIVISION.
         PROGRAM-ID. hub.

       DATA DIVISION.
         LINKAGE SECTION.
           77 STR PIC A(17).
           77 NB-PREM PIC 9(4).
           77 NB-DEUX PIC 9(4).

       PROCEDURE DIVISION USING STR, NB-PREM, NB-DEUX.
       route.
           CALL "parse-prem" USING
           BY CONTENT STR,
           BY REFERENCE NB-PREM
           END-CALL.

           CALL "parse-deux" USING
           BY CONTENT STR,
           BY REFERENCE NB-DEUX
           END-CALL.
       EXIT PROGRAM.

      ******************************************************************
      * parse-prem : parse la chaine de caractères pour voir le nombre de
      * bonnes chaines pour la partie 1. Prend en paramètres 2 arguments :
      * STR : chaine de caractères de taille 17 à analyser.
      * NB  : (REFERENCE) le nombre de bonnes chaines. Sera incrémenter.
      *****************************************************************

       IDENTIFICATION DIVISION.
       PROGRAM-ID. parse-prem.

       DATA DIVISION.
         WORKING-STORAGE SECTION.
           77 CHAR PIC A.
               88 VOY VALUE 'a','e','i','o','u'.
           77 I PIC 99.
               88 END-P VALUE 17.
           77 NB-VOY PIC 99.
           77 PRED PIC A.
           77 TMP PIC AA.
               88 BAD VALUE 'ab', 'cd', 'pq', 'xy'.
           77 DOUBLE PIC X.

      *****************************************************************
      * NB-VOY contient le nombre de voyelles
      * PRED le caractère précédent
      * TMP forme la chaine contenant le caractère précédent et courant
      * BAD les mauvaises formes de chaines
      * DOUBLE est mit à Y lorsque CHAR = PRED
      *
      * LINKAGE SECTION contient les paramètres du programme parse-str
      *****************************************************************

         LINKAGE SECTION.
           77 STR PIC A(17).
           77 NB PIC 9(4).

       PROCEDURE DIVISION USING STR, NB.
       parse.
           MOVE 0 TO NB-VOY.
           MOVE 'N' TO DOUBLE.
           PERFORM VARYING I FROM 1 BY 1 UNTIL END-P
               MOVE STR(I:1) TO CHAR
               IF VOY THEN
                   ADD 1 TO NB-VOY END-ADD
               END-IF
               IF I >= 2
                   THEN
                       STRING PRED CHAR INTO TMP END-STRING
                       IF BAD THEN
                           EXIT PERFORM
                       END-IF
                       IF PRED = CHAR THEN
                           MOVE 'Y' TO DOUBLE
                       END-IF
               END-IF
               MOVE CHAR TO PRED
           END-PERFORM.
           IF NOT BAD AND NB-VOY >= 3 AND DOUBLE = 'Y' THEN
               ADD 1 TO NB END-ADD
           END-IF.
           EXIT PROGRAM.
       END PROGRAM parse-prem.

      ******************************************************************
      * parse-deux : parse la chaine de caractères pour voir le nombre de
      * bonnes chaines pour la partie 2. Prend en paramètres 2 arguments :
      * STR : chaine de caractères de taille 17 à analyser.
      * NB  : (REFERENCE) le nombre de bonnes chaines. Sera incrémenter.
      *****************************************************************

       IDENTIFICATION DIVISION.
         PROGRAM-ID. parse-deux.

       DATA DIVISION.
         WORKING-STORAGE SECTION.
           77 CHAR PIC A.
           77 I PIC 99.
               88 STR-LENGTH VALUE 17.
           77 J PIC 99.
           77 K PIC 99.
               88 DOUBLE-STR-LENGTH VALUE 16.
           77 PRED PIC A.
           77 MYNEW PIC A.
           77 DOUBLE-CHAR PIC AA.
           77 DOUBLE-CHAR-NEXT PIC AA.
           77 BETWEEN PIC X.
           77 DOUBLE PIC X.

      ******************************************************************
      * PRED le caractère précédent
      * MYNEW le caractère suivant
      * DOUBLE-CHAR la paire à vérifier
      * DOUBLE-CHAR-NEXT les paires suivantes
      * DOUBLE est mit à Y lorsque 2 pairs sont trouvées
      * BETWEEN est mit à Y lorsque 2 memes lettres en encadrent une
      ******************************************************************

         LINKAGE SECTION.
           77 STR PIC A(17).
           77 NB PIC 9(4).

       PROCEDURE DIVISION USING STR, NB.
       deuxieme-part.
           MOVE 'N' TO BETWEEN.
           MOVE 'N' TO DOUBLE.
           PERFORM VARYING I FROM 1 BY 1 UNTIL STR-LENGTH
               COMPUTE J = I + 1 END-COMPUTE
               MOVE STR(I:1) TO CHAR
               IF I > 1 AND I < (LENGTH OF STR - 1) THEN
                   MOVE STR(J:1) TO MYNEW
                   IF PRED = MYNEW THEN
                       MOVE 'Y' TO BETWEEN
                   END-IF
               END-IF

               IF I < ((LENGTH OF STR) - 2) AND DOUBLE = 'N' THEN
                   MOVE STR(I:2) TO DOUBLE-CHAR
                   ADD 1 TO J END-ADD
                   PERFORM VARYING K FROM J BY 1 UNTIL DOUBLE-STR-LENGTH
                       MOVE STR(K:2) TO DOUBLE-CHAR-NEXT
                       IF DOUBLE-CHAR = DOUBLE-CHAR-NEXT THEN
                           MOVE 'Y' TO DOUBLE
                       END-IF
                   END-PERFORM
               END-IF
               MOVE CHAR TO PRED
           END-PERFORM.

           IF BETWEEN  = 'Y' AND DOUBLE = 'Y'
               THEN
                   ADD 1 TO NB END-ADD
           END-IF.
           EXIT PROGRAM.
       END PROGRAM parse-deux.

       END PROGRAM hub.
       END PROGRAM jour-cinq.