Rick/aoc-2015
1
0
Fork 0
Code Issues Pull requests Activity

Suppression espaces inutiles

Browse source
This commit is contained in:
rick 2021-03-17 22:28:17 +01:00
parent ed7231d96a
commit 0f6b272853
Signed by: Rick
GPG key ID: 2B593F087240EE99
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
jour05/jour5.cob
View file

@ -1,18 +1,18 @@
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION.
PROGRAM-ID. jour-cinq-prem-part. PROGRAM-ID. jour-cinq-prem-part.
ENVIRONMENT DIVISION. ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION. INPUT-OUTPUT SECTION.
FILE-CONTROL. FILE-CONTROL.
SELECT FILE1 ASSIGN TO "input" SELECT FILE1 ASSIGN TO "input"
ORGANIZATION LINE SEQUENTIAL. ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION. DATA DIVISION.
FILE SECTION. FILE SECTION.
FD FILE1. FD FILE1.
01 INPUT-FILE. 01 INPUT-FILE.
02 STR PIC A(17). 02 STR PIC A(17).
WORKING-STORAGE SECTION. WORKING-STORAGE SECTION.
01 MY-FILE. 01 MY-FILE.
02 MY-STR PIC A(17). 02 MY-STR PIC A(17).
@ -20,7 +20,7 @@
88 EOF VALUE 'Y'. 88 EOF VALUE 'Y'.
77 NB-NICE-PREM PIC 9(4) VALUE 0. 77 NB-NICE-PREM PIC 9(4) VALUE 0.
77 NB-NICE-DEUX PIC 9(4) VALUE 0. 77 NB-NICE-DEUX PIC 9(4) VALUE 0.
PROCEDURE DIVISION. PROCEDURE DIVISION.
main. main.
OPEN INPUT FILE1. OPEN INPUT FILE1.
@ -41,7 +41,7 @@
DISPLAY "Dans la partie 2 : " NB-NICE-DEUX END-DISPLAY. DISPLAY "Dans la partie 2 : " NB-NICE-DEUX END-DISPLAY.
CLOSE FILE1. CLOSE FILE1.
STOP RUN. STOP RUN.
***************************************************************** *****************************************************************
* hub : exécute les 2 fonctions pour les 2 parties * hub : exécute les 2 fonctions pour les 2 parties
* STR : la chaine à passer en paramètre aux deux fonctions * STR : la chaine à passer en paramètre aux deux fonctions
@ -49,10 +49,10 @@
* NB-DEUX : (REFERENCE) nombre bonnes chaines partie 2 * NB-DEUX : (REFERENCE) nombre bonnes chaines partie 2
* Ces 2 variables seront incrémentées * Ces 2 variables seront incrémentées
***************************************************************** *****************************************************************
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION.
PROGRAM-ID. hub. PROGRAM-ID. hub.
DATA DIVISION. DATA DIVISION.
LINKAGE SECTION. LINKAGE SECTION.
77 STR PIC A(17). 77 STR PIC A(17).
@ -81,7 +81,7 @@
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION.
PROGRAM-ID. parse-prem. PROGRAM-ID. parse-prem.
DATA DIVISION. DATA DIVISION.
WORKING-STORAGE SECTION. WORKING-STORAGE SECTION.
77 CHAR PIC A. 77 CHAR PIC A.
@ -103,11 +103,11 @@
* *
* LINKAGE SECTION contient les paramètres du programme parse-str * LINKAGE SECTION contient les paramètres du programme parse-str
***************************************************************** *****************************************************************
LINKAGE SECTION. LINKAGE SECTION.
77 STR PIC A(17). 77 STR PIC A(17).
77 NB PIC 9(4). 77 NB PIC 9(4).
PROCEDURE DIVISION USING STR, NB. PROCEDURE DIVISION USING STR, NB.
parse. parse.
MOVE 0 TO NB-VOY. MOVE 0 TO NB-VOY.
@ -144,7 +144,7 @@
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION.
PROGRAM-ID. parse-deux. PROGRAM-ID. parse-deux.
DATA DIVISION. DATA DIVISION.
WORKING-STORAGE SECTION. WORKING-STORAGE SECTION.
77 CHAR PIC A. 77 CHAR PIC A.
@ -159,7 +159,7 @@
77 DOUBLE-CHAR-NEXT PIC AA. 77 DOUBLE-CHAR-NEXT PIC AA.
77 BETWEEN PIC X. 77 BETWEEN PIC X.
77 DOUBLE PIC X. 77 DOUBLE PIC X.
****************************************************************** ******************************************************************
* PRED le caractère précédent * PRED le caractère précédent
* MYNEW le caractère suivant * MYNEW le caractère suivant
@ -168,11 +168,11 @@
* DOUBLE est mit à Y lorsque 2 pairs sont trouvées * DOUBLE est mit à Y lorsque 2 pairs sont trouvées
* BETWEEN est mit à Y lorsque 2 memes lettres en encadrent une * BETWEEN est mit à Y lorsque 2 memes lettres en encadrent une
****************************************************************** ******************************************************************
LINKAGE SECTION. LINKAGE SECTION.
77 STR PIC A(17). 77 STR PIC A(17).
77 NB PIC 9(4). 77 NB PIC 9(4).
PROCEDURE DIVISION USING STR, NB. PROCEDURE DIVISION USING STR, NB.
deuxieme-part. deuxieme-part.
MOVE 'N' TO BETWEEN. MOVE 'N' TO BETWEEN.