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

Suppression messages de debug

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

29
jour05/jour5.cob
View file

@ -32,7 +32,7 @@
BY CONTENT MY-STR, BY CONTENT MY-STR,
BY REFERENCE NB-NICE-PREM BY REFERENCE NB-NICE-PREM
BY REFERENCE NB-NICE-DEUX BY REFERENCE NB-NICE-DEUX
* On passe par référence NB-NICE pour l’incrémenter * On passe par référence NB-NICE pour les incrémenter
END-CALL END-CALL
END-READ END-READ
END-PERFORM. END-PERFORM.
@ -112,35 +112,25 @@
parse. parse.
MOVE 0 TO NB-VOY. MOVE 0 TO NB-VOY.
MOVE 'N' TO DOUBLE. MOVE 'N' TO DOUBLE.
d DISPLAY STR.
d DISPLAY "=================".
PERFORM VARYING I FROM 1 BY 1 UNTIL END-P PERFORM VARYING I FROM 1 BY 1 UNTIL END-P
MOVE STR(I:1) TO CHAR MOVE STR(I:1) TO CHAR
d DISPLAY "ACT. CHAR : " CHAR IF VOY THEN
d DISPLAY "ACT. PRED : " PRED ADD 1 TO NB-VOY END-ADD
d DISPLAY "I : " I
IF VOY
THEN ADD 1 TO NB-VOY END-ADD
END-IF END-IF
IF I >= 2 IF I >= 2
THEN THEN
STRING PRED CHAR INTO TMP END-STRING STRING PRED CHAR INTO TMP END-STRING
d DISPLAY "TMP STR : " TMP IF BAD THEN
IF BAD EXIT PERFORM
THEN
EXIT PERFORM
END-IF END-IF
IF PRED = CHAR IF PRED = CHAR THEN
THEN MOVE 'Y' TO DOUBLE
MOVE 'Y' TO DOUBLE
END-IF END-IF
d DISPLAY "DOUBLE : " DOUBLE
END-IF END-IF
MOVE CHAR TO PRED MOVE CHAR TO PRED
END-PERFORM. END-PERFORM.
IF NOT BAD AND NB-VOY >= 3 AND DOUBLE = 'Y' IF NOT BAD AND NB-VOY >= 3 AND DOUBLE = 'Y' THEN
THEN ADD 1 TO NB END-ADD
ADD 1 TO NB END-ADD
END-IF. END-IF.
EXIT PROGRAM. EXIT PROGRAM.
END PROGRAM parse-prem. END PROGRAM parse-prem.
@ -215,7 +205,6 @@
ADD 1 TO NB END-ADD ADD 1 TO NB END-ADD
END-IF. END-IF.
EXIT PROGRAM. EXIT PROGRAM.
END PROGRAM parse-deux. END PROGRAM parse-deux.
END PROGRAM hub. END PROGRAM hub.