commit 0880a0dfbb4b71caad75aaae5daf23eb2d2db5d5 · treybastian.com/advent-of-code

.gitignore

···

       1
       +
       input.txt

     

       2
       +
       input_test.txt

+51

2025/day_01.cbl

···

       1
       +
              IDENTIFICATION DIVISION.

     

       2
       +
              PROGRAM-ID. day_01.

     

       3
       +
              AUTHOR. Trey Bastian.

     

       4
       +
              ENVIRONMENT DIVISION.

     

       5
       +
              INPUT-OUTPUT SECTION.

     

       6
       +
              FILE-CONTROL.

     

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

     

       8
       +
                  ORGANIZATION IS LINE SEQUENTIAL.

     

       9
       +
              DATA DIVISION.

     

       10
       +
              FILE SECTION.

     

       11
       +
              FD input-file.

     

       12
       +
              01 input-line.

     

       13
       +
                02 direction PIC X.

     

       14
       +
                02 move-text PIC XXX.

     

       15
       +
              WORKING-STORAGE SECTION.

     

       16
       +
              01 dial-position PIC 9(2) VALUE 50.

     

       17
       +
              01 move-num PIC S9(3).

     

       18
       +
              01 zero-count PIC 9(4) VALUE ZEROS.

     

       19
       +
              01 eof PIC X.

     

       20
       +
                  88 eof-y VALUE "Y".

     

       21
       +
                  88 eof-n VALUE "N".

     

       22
       +
       

     

       23
       +
              

     

       24
       +
              PROCEDURE DIVISION.

     

       25
       +
                OPEN INPUT input-file.

     

       26
       +
                SET eof-n to TRUE.

     

       27
       +
                PERFORM UNTIL eof-y

     

       28
       +
                    READ input-file AT END

     

       29
       +
                        SET eof-y to TRUE

     

       30
       +
                    NOT AT END

     

       31
       +
                      MOVE FUNCTION NUMVAL(move-text) TO move-num

     

       32
       +
                      IF direction = "L"

     

       33
       +
                       COMPUTE move-num = 0 - move-num 

     

       34
       +
                      END-IF

     

       35
       +
                      

     

       36
       +
                      COMPUTE dial-position = FUNCTION MOD(dial-position +

     

       37
       +
                      move-num, 100) 

     

       38
       +
       

     

       39
       +
                      if dial-position < 0

     

       40
       +
                        ADD 100 to dial-position

     

       41
       +
                      END-IF

     

       42
       +
       

     

       43
       +
                      if dial-position = 0 

     

       44
       +
                        ADD 1 to zero-count

     

       45
       +
                      END-IF

     

       46
       +
                     END-READ

     

       47
       +
                END-PERFORM.

     

       48
       +
                CLOSE input-file.

     

       49
       +
                DISPLAY zero-count.

     

       50
       +
              STOP-RUN.

     

       51
       +

+6 -1

README.md

···

       1
        
       # Advent of Code Repo

     

       2
        
       This repository contains my solutions to the Advent of Code challenges.

     

       3
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       4
        
       ## 2024 - Fortran

     

       5
        
       You'll need GNUFortran to run these solutions.

     

       6
        
       

     

       7
       -
       On MacOS, you can install it with Homebrew with `brew install gcc`.

···

       1
        
       # Advent of Code Repo

     

       2
        
       This repository contains my solutions to the Advent of Code challenges.

     

       3
        
       

     

       4
       +
       ## 2025 - COBOL 

     

       5
       +
       You'll need to install GNUCobol to run these solutions.

     

       6
       +
       

     

       7
       +
       On MacOS you can install it with Homebrew: `brew install gnucobol`

     

       8
       +
       

     

       9
        
       ## 2024 - Fortran

     

       10
        
       You'll need GNUFortran to run these solutions.

     

       11
        
       

     

       12
       +
       On MacOS, you can install it with Homebrew:  `brew install gcc`.