commit 7ff1f1c2f55aca47536e134c59162801d9324bbe · treybastian.com/advent-of-code

+63

2025/day_03.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_03.

     

       3
       3
       +
              AUTHOR. Trey Bastian.

     

       4
       4
       +
              ENVIRONMENT DIVISION.

     

       5
       5
       +
              INPUT-OUTPUT SECTION.

     

       6
       6
       +
              FILE-CONTROL.

     

       7
       7
       +
              SELECT input-file ASSIGN TO "./input.txt"

     

       8
       8
       +
                  ORGANIZATION IS LINE SEQUENTIAL.

     

       9
       9
       +
              DATA DIVISION.

     

       10
       10
       +
              FILE SECTION.

     

       11
       11
       +
              FD input-file.

     

       12
       12
       +
              01 input-line PIC Z(4096). 

     

       13
       13
       +
              WORKING-STORAGE SECTION.

     

       14
       14
       +
              01 idx PIC 9(4).

     

       15
       15
       +
              01 idx-2 PIC 9(4).

     

       16
       16
       +
              01 len PIC 9(4).

     

       17
       17
       +
       

     

       18
       18
       +
              01 maxim PIC 9 VALUE 0.

     

       19
       19
       +
              01 digit PIC 9 VALUE 0.

     

       20
       20
       +
       

     

       21
       21
       +
              01 joltage PIC XX.

     

       22
       22
       +
              01 result PIC 9(10) VALUE 0.

     

       23
       23
       +
       

     

       24
       24
       +
              

     

       25
       25
       +
              01 eof PIC X.

     

       26
       26
       +
                  88 eof-y VALUE "Y".

     

       27
       27
       +
                  88 eof-n VALUE "N".

     

       28
       28
       +
       

     

       29
       29
       +
              PROCEDURE DIVISION.

     

       30
       30
       +
                OPEN INPUT input-file.

     

       31
       31
       +
                SET eof-n to TRUE.

     

       32
       32
       +
                PERFORM UNTIL eof-y

     

       33
       33
       +
                    READ input-file AT END

     

       34
       34
       +
                        SET eof-y to TRUE

     

       35
       35
       +
                    NOT AT END

     

       36
       36
       +
                       MOVE FUNCTION LENGTH(FUNCTION TRIM(input-line)) TO len

     

       37
       37
       +
                       MOVE 0 TO maxim

     

       38
       38
       +
             *first pass leave something on the right

     

       39
       39
       +
                       PERFORM VARYING idx FROM 1 UNTIL idx > len - 1 

     

       40
       40
       +
                           MOVE FUNCTION NUMVAL(input-line(idx:1)) TO digit

     

       41
       41
       +
                           IF maxim < digit

     

       42
       42
       +
                             MOVE digit TO maxim

     

       43
       43
       +
                             MOVE idx TO idx-2

     

       44
       44
       +
                           END-IF

     

       45
       45
       +
                       END-PERFORM 

     

       46
       46
       +
             * need the next index 

     

       47
       47
       +
                       MOVE maxim TO joltage(1:1)

     

       48
       48
       +
                       MOVE 0 TO maxim

     

       49
       49
       +
                       ADD 1 TO idx-2 

     

       50
       50
       +
                       PERFORM VARYING idx-2 FROM idx-2  UNTIL idx-2 > len

     

       51
       51
       +
                         MOVE FUNCTION NUMVAL(input-line(idx-2:1)) TO digit

     

       52
       52
       +
                         IF maxim < digit

     

       53
       53
       +
                           MOVE digit TO maxim

     

       54
       54
       +
                         END-IF

     

       55
       55
       +
                       END-PERFORM

     

       56
       56
       +
                       MOVE maxim TO joltage(2:1)

     

       57
       57
       +
                       ADD FUNCTION NUMVAL(joltage) TO result

     

       58
       58
       +
                     END-READ

     

       59
       59
       +
                END-PERFORM.

     

       60
       60
       +
                CLOSE input-file.

     

       61
       61
       +
                DISPLAY result.

     

       62
       62
       +
              STOP-RUN.

     

       63
       63
       +

+64

2025/day_03_part2.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_03_part2.

     

       3
       3
       +
              AUTHOR. Trey Bastian.

     

       4
       4
       +
              ENVIRONMENT DIVISION.

     

       5
       5
       +
              INPUT-OUTPUT SECTION.

     

       6
       6
       +
              FILE-CONTROL.

     

       7
       7
       +
              SELECT input-file ASSIGN TO "./input.txt"

     

       8
       8
       +
                  ORGANIZATION IS LINE SEQUENTIAL.

     

       9
       9
       +
              DATA DIVISION.

     

       10
       10
       +
              FILE SECTION.

     

       11
       11
       +
              FD input-file.

     

       12
       12
       +
              01 input-line PIC Z(4096). 

     

       13
       13
       +
              WORKING-STORAGE SECTION.

     

       14
       14
       +
              01 idx PIC 9(4) VALUE 1.

     

       15
       15
       +
              01 idx-2 PIC 9(4).

     

       16
       16
       +
              01 len PIC 9(4).

     

       17
       17
       +
       

     

       18
       18
       +
              01 maxim PIC 9 VALUE 0.

     

       19
       19
       +
              01 digit PIC 9 VALUE 0.

     

       20
       20
       +
              01 remaining PIC 99 VALUE 12.

     

       21
       21
       +
              01 rem-idx PIC 99 VALUE 1.

     

       22
       22
       +
       

     

       23
       23
       +
              01 joltage PIC X(12).

     

       24
       24
       +
              01 result PIC 9(32) VALUE 0.

     

       25
       25
       +
       

     

       26
       26
       +
              

     

       27
       27
       +
              01 eof PIC X.

     

       28
       28
       +
                  88 eof-y VALUE "Y".

     

       29
       29
       +
                  88 eof-n VALUE "N".

     

       30
       30
       +
       

     

       31
       31
       +
              PROCEDURE DIVISION.

     

       32
       32
       +
                OPEN INPUT input-file.

     

       33
       33
       +
                SET eof-n to TRUE.

     

       34
       34
       +
                PERFORM UNTIL eof-y

     

       35
       35
       +
                    READ input-file AT END

     

       36
       36
       +
                        SET eof-y to TRUE

     

       37
       37
       +
                    NOT AT END

     

       38
       38
       +
                       MOVE FUNCTION LENGTH(FUNCTION TRIM(input-line)) TO len

     

       39
       39
       +
                       MOVE 1 TO idx

     

       40
       40
       +
                       MOVE 12 TO remaining

     

       41
       41
       +
                       MOVE 1 TO rem-idx

     

       42
       42
       +
                       PERFORM UNTIL remaining < 1

     

       43
       43
       +
                         MOVE 0 TO maxim

     

       44
       44
       +
                         PERFORM VARYING idx FROM idx UNTIL idx > 

     

       45
       45
       +
                           (len - remaining + 1)

     

       46
       46
       +
                           MOVE FUNCTION NUMVAL(input-line(idx:1)) to digit

     

       47
       47
       +
                           IF maxim < digit

     

       48
       48
       +
                             MOVE digit TO maxim

     

       49
       49
       +
                             MOVE idx TO idx-2

     

       50
       50
       +
                           END-IF

     

       51
       51
       +
                         END-PERFORM

     

       52
       52
       +
                           MOVE maxim TO joltage(rem-idx:1)

     

       53
       53
       +
                           ADD 1 TO rem-idx

     

       54
       54
       +
                           SUBTRACT 1 FROM remaining

     

       55
       55
       +
                           MOVE idx-2 TO idx

     

       56
       56
       +
                           ADD 1 TO idx

     

       57
       57
       +
                       END-PERFORM

     

       58
       58
       +
                       ADD FUNCTION NUMVAL(joltage) TO result

     

       59
       59
       +
                     END-READ

     

       60
       60
       +
                END-PERFORM.

     

       61
       61
       +
                CLOSE input-file.

     

       62
       62
       +
                DISPLAY result.

     

       63
       63
       +
              STOP-RUN.

     

       64
       64
       +