comparing 6252fbfbadf5d15b9c2acbacb40e7f82b3cc3fe3 and main on treybastian.com/advent-of-code

.gitignore

···

       1
       1
       +
       input.txt

     

       2
       2
       +
       input_test.txt

+7 -22

2024/day_03.ml

···

       11
       11
        
         in

     

       12
       12
        
         read [] |> List.rev |> String.concat ""

     

       13
       13
        
       

     

       14
       14
       -
       let regex = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))"

     

       14
       14
       +
       let regex_mul = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))"

     

       15
       15
        
       let regex_mul_part_2 = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))\\|don't()"

     

       16
       16
        
       let regex_do_part_2 = Str.regexp "do()"

     

       17
       17
        
       

     

       18
       18
       -
       let calculate_total str =

     

       19
       19
       -
         let rec calculate str acc =

     

       20
       20
       -
           try

     

       21
       21
       -
             let _ = Str.search_forward regex str 0 in

     

       22
       22
       -
             let a = Str.matched_group 1 str |> int_of_string in

     

       23
       23
       -
             let b = Str.matched_group 2 str |> int_of_string in

     

       24
       24
       -
       

     

       25
       25
       -
             let result = a * b in

     

       26
       26
       -
             let new_str = Str.replace_first regex (string_of_int result) str in

     

       27
       27
       -
             calculate new_str (acc + result)

     

       28
       28
       -
           with Not_found -> acc

     

       29
       29
       -
         in

     

       30
       30
       -
         calculate str 0

     

       31
       31
       -
       

     

       32
       32
       -
       let calculate_total_part_2 str =

     

       18
       18
       +
       let calculate_total str regexp =

     

       33
       19
        
         let rec calculate str regexp acc =

     

       34
       20
        
           try

     

       35
       21
        
             let _ = Str.search_forward regexp str 0 in

     
···

       43
       29
        
             | cmd when String.starts_with ~prefix:"mul" cmd ->

     

       44
       30
        
                 let a = Str.matched_group 1 str |> int_of_string in

     

       45
       31
        
                 let b = Str.matched_group 2 str |> int_of_string in

     

       46
       46
       -
                 let result = a * b in

     

       47
       47
       -
                 calculate new_str regexp (acc + result)

     

       32
       32
       +
                 calculate new_str regexp (acc + (a * b))

     

       48
       33
        
             | _ -> acc

     

       49
       34
        
           with Not_found -> acc

     

       50
       35
        
         in

     

       51
       51
       -
         calculate str regex_mul_part_2 0

     

       36
       36
       +
         calculate str regexp 0

     

       52
       37
        
       

     

       53
       38
        
       let () =

     

       54
       39
        
         let ic = open_in filename in

     

       55
       55
       -
         read_file ic |> calculate_total |> Printf.sprintf "Sum %d" |> print_endline;

     

       40
       40
       +
         let data = read_file ic in

     

       41
       41
       +
         calculate_total data regex_mul |> Printf.sprintf "Sum %d" |> print_endline;

     

       56
       42
        
       

     

       57
       57
       -
         let ic = open_in filename in

     

       58
       58
       -
         read_file ic |> calculate_total_part_2

     

       43
       43
       +
         calculate_total data regex_mul_part_2

     

       59
       44
        
         |> Printf.sprintf "Part 2 Sum %d"

     

       60
       45
        
         |> print_endline

+193

2024/day_05.f90

···

       1
       1
       +
       module day_05_utils

     

       2
       2
       +
          implicit none

     

       3
       3
       +
       contains

     

       4
       4
       +
          subroutine append_to_integer_array(arr, val)

     

       5
       5
       +
             implicit none

     

       6
       6
       +
             integer, allocatable, intent(inout) :: arr(:)

     

       7
       7
       +
             integer, intent(in) :: val

     

       8
       8
       +
             integer, allocatable :: temp(:)

     

       9
       9
       +
             if(.not. allocated(arr)) then

     

       10
       10
       +
                ERROR STOP 'Array not allocated'

     

       11
       11
       +
             end if

     

       12
       12
       +
             allocate(temp(size(arr) + 1))

     

       13
       13
       +
             temp(1:size(arr)) = arr

     

       14
       14
       +
             temp(size(arr) + 1) = val

     

       15
       15
       +
             call move_alloc(temp, arr)

     

       16
       16
       +
          end subroutine append_to_integer_array

     

       17
       17
       +
          function fix_and_get_middle_value(arr, left, right) result(res)

     

       18
       18
       +
             ! we are going to fix the array swapping until its right

     

       19
       19
       +
             ! there's probably a better way maybe? but I just want to get it done

     

       20
       20
       +
             implicit none

     

       21
       21
       +
             integer, allocatable, intent(in) :: arr(:), left(:), right(:)

     

       22
       22
       +
             integer, allocatable :: work(:), copy(:)

     

       23
       23
       +
             integer :: res, i, j, tmp

     

       24
       24
       +
             logical :: found

     

       25
       25
       +
             allocate(copy(size(arr)))

     

       26
       26
       +
             copy = arr

     

       27
       27
       +
             do

     

       28
       28
       +
                found = .false.

     

       29
       29
       +
                outer: do i = 1, size(copy)

     

       30
       30
       +
                   if(i+1 < size(copy)) then ! if we can check forward

     

       31
       31
       +
                      if(allocated(work)) then

     

       32
       32
       +
                         deallocate(work)

     

       33
       33
       +
                      end if

     

       34
       34
       +
                      do j = 1, size(right) ! find value in right and save left to work

     

       35
       35
       +
                         if (copy(i) == right(j)) then

     

       36
       36
       +
                            if(.not. allocated(work)) then

     

       37
       37
       +
                               allocate(work(1))

     

       38
       38
       +
                               work(1) = left(j)

     

       39
       39
       +
                            else

     

       40
       40
       +
                               call append_to_integer_array(work, left(j))

     

       41
       41
       +
                            end if

     

       42
       42
       +
                         end if

     

       43
       43
       +
                      end do

     

       44
       44
       +
                      do j = i+1, size(copy)

     

       45
       45
       +
                         if(any(work == copy(j))) then

     

       46
       46
       +
                            tmp = copy(i)

     

       47
       47
       +
                            copy(i) = copy(j)

     

       48
       48
       +
                            copy(j) = tmp

     

       49
       49
       +
                            found = .true.

     

       50
       50
       +
                            exit outer

     

       51
       51
       +
                         end if

     

       52
       52
       +
                      end do

     

       53
       53
       +
                   end if

     

       54
       54
       +
       

     

       55
       55
       +
                   if(.not. found) then ! if we are still valid lets keep going

     

       56
       56
       +
                      if(allocated(work)) then

     

       57
       57
       +
                         deallocate(work)

     

       58
       58
       +
                      end if

     

       59
       59
       +
                      if(i-1 > 0) then ! if we can check backwards

     

       60
       60
       +
                         do j = 1, size(left) ! find value in left and save left to work

     

       61
       61
       +
       

     

       62
       62
       +
                            if (copy(i) == left(j)) then

     

       63
       63
       +
                               if(.not. allocated(work)) then

     

       64
       64
       +
                                  allocate(work(1))

     

       65
       65
       +
                                  work(1) = right(j)

     

       66
       66
       +
                               else

     

       67
       67
       +
                                  call append_to_integer_array(work, right(j))

     

       68
       68
       +
                               end if

     

       69
       69
       +
                            end if

     

       70
       70
       +
                         end do

     

       71
       71
       +
                         do j = 1, size(copy)

     

       72
       72
       +
                            if(any(work == copy(j) .and. j < i)) then

     

       73
       73
       +
                               tmp = copy(i)

     

       74
       74
       +
                               copy(i) = copy(j)

     

       75
       75
       +
                               copy(j) = tmp

     

       76
       76
       +
                               found = .true.

     

       77
       77
       +
                               exit outer

     

       78
       78
       +
                            end if

     

       79
       79
       +
                         end do

     

       80
       80
       +
                      end if

     

       81
       81
       +
                   else

     

       82
       82
       +
                      exit outer

     

       83
       83
       +
                   end if

     

       84
       84
       +
                end do outer

     

       85
       85
       +
                if(.not. found) exit

     

       86
       86
       +
             end do

     

       87
       87
       +
             res = copy((size(copy) + 1)/2)

     

       88
       88
       +
             deallocate(copy)

     

       89
       89
       +
             if(allocated(work)) then

     

       90
       90
       +
                deallocate(work)

     

       91
       91
       +
             end if

     

       92
       92
       +
          end function fix_and_get_middle_value

     

       93
       93
       +
       end module day_05_utils

     

       94
       94
       +
       program day_05

     

       95
       95
       +
          use day_05_utils

     

       96
       96
       +
          implicit none

     

       97
       97
       +
          integer :: io, ios, idx, a, b, ct, i, j, res, res_part2

     

       98
       98
       +
          integer, allocatable :: left(:), right(:), print_list(:), work(:)

     

       99
       99
       +
          character(len=100) ::line

     

       100
       100
       +
          logical :: found

     

       101
       101
       +
       

     

       102
       102
       +
          open(newunit=io, file='./day_05_input.txt', status='old', action='read')

     

       103
       103
       +
          res = 0

     

       104
       104
       +
          res_part2 = 0

     

       105
       105
       +
          do

     

       106
       106
       +
             read(io, '(a)', iostat=ios) line

     

       107
       107
       +
             if(ios /= 0) exit !eof

     

       108
       108
       +
             idx = index(line, '|')

     

       109
       109
       +
             if(idx > 0) then ! rules

     

       110
       110
       +
                read(line(1:idx-1), *) a

     

       111
       111
       +
                read(line(idx+1:), *) b

     

       112
       112
       +
                if(.not. allocated(left)) then

     

       113
       113
       +
                   allocate(left(1))

     

       114
       114
       +
                   left(1) = a

     

       115
       115
       +
                else

     

       116
       116
       +
                   call append_to_integer_array(left, a)

     

       117
       117
       +
                end if

     

       118
       118
       +
                if(.not. allocated(right)) then

     

       119
       119
       +
                   allocate(right(1))

     

       120
       120
       +
                   right(1) = b

     

       121
       121
       +
                else

     

       122
       122
       +
                   call append_to_integer_array(right, b)

     

       123
       123
       +
                end if

     

       124
       124
       +
             end if

     

       125
       125
       +
             idx = index(line, ',')

     

       126
       126
       +
             if (idx > 0 ) then ! print_list

     

       127
       127
       +
                ct = 1

     

       128
       128
       +
                do i = 1 , len_trim(line)

     

       129
       129
       +
                   if(line(i:i) == ',') then

     

       130
       130
       +
                      ct = ct + 1

     

       131
       131
       +
                   end if

     

       132
       132
       +
                end do

     

       133
       133
       +
                allocate(print_list(ct))

     

       134
       134
       +
                read(line, *) print_list

     

       135
       135
       +
                found = .false.

     

       136
       136
       +
                do i = 1, size(print_list)

     

       137
       137
       +
                   if(i+1 < size(print_list)) then ! if we can check forward

     

       138
       138
       +
                      do j = 1, size(right) ! find value in right and save left to work

     

       139
       139
       +
                         if (print_list(i) == right(j)) then

     

       140
       140
       +
                            if(.not. allocated(work)) then

     

       141
       141
       +
                               allocate(work(1))

     

       142
       142
       +
                               work(1) = left(j)

     

       143
       143
       +
                            else

     

       144
       144
       +
                               call append_to_integer_array(work, left(j))

     

       145
       145
       +
                            end if

     

       146
       146
       +
                         end if

     

       147
       147
       +
                      end do

     

       148
       148
       +
                      do j = 1, size(work)

     

       149
       149
       +
                         if(any(print_list(i+1:size(print_list)) == work(j))) then

     

       150
       150
       +
                            found = .true.

     

       151
       151
       +
                            exit

     

       152
       152
       +
                         end if

     

       153
       153
       +
                      end do

     

       154
       154
       +
                      deallocate(work)

     

       155
       155
       +
                   end if

     

       156
       156
       +
                   if(.not. found) then ! if we are still valid lets keep going

     

       157
       157
       +
                      if(i-1 > 0) then ! if we can check backwards

     

       158
       158
       +
                         do j = 1, size(left) ! find value in left and save left to work

     

       159
       159
       +
                            if (print_list(i) == left(j)) then

     

       160
       160
       +
                               if(.not. allocated(work)) then

     

       161
       161
       +
                                  allocate(work(1))

     

       162
       162
       +
                                  work(1) = right(j)

     

       163
       163
       +
                               else

     

       164
       164
       +
                                  call append_to_integer_array(work, right(j))

     

       165
       165
       +
                               end if

     

       166
       166
       +
                            end if

     

       167
       167
       +
                         end do

     

       168
       168
       +
                         do j = 1, size(work)

     

       169
       169
       +
                            if(any(print_list(1:i-1) == work(j))) then

     

       170
       170
       +
                               found = .true.

     

       171
       171
       +
                               exit

     

       172
       172
       +
                            end if

     

       173
       173
       +
                         end do

     

       174
       174
       +
                         deallocate(work)

     

       175
       175
       +
                      end if

     

       176
       176
       +
                   else

     

       177
       177
       +
                      exit

     

       178
       178
       +
                   end if

     

       179
       179
       +
                end do

     

       180
       180
       +
                if (.not. found) then

     

       181
       181
       +
                   res = res + print_list((size(print_list) + 1)/2)

     

       182
       182
       +
                else

     

       183
       183
       +
                   res_part2 = res_part2 + fix_and_get_middle_value(print_list, left, right)

     

       184
       184
       +
                end if

     

       185
       185
       +
                deallocate(print_list)

     

       186
       186
       +
             end if

     

       187
       187
       +
          end do

     

       188
       188
       +
       

     

       189
       189
       +
          deallocate(left)

     

       190
       190
       +
          deallocate(right)

     

       191
       191
       +
          print*, "Result ", res

     

       192
       192
       +
          print*, "Part 2 Result ", res_part2

     

       193
       193
       +
       end program day_05

+64

2024/day_06.f90

···

       1
       1
       +
       program day_06

     

       2
       2
       +
          implicit none

     

       3
       3
       +
          character(len=130) :: line, lines(130)

     

       4
       4
       +
          integer:: io, x,y, xd,yd, i, ct

     

       5
       5
       +
       

     

       6
       6
       +
          open(newunit=io, file='./day_06_input.txt', status='old', action='read')

     

       7
       7
       +
          read(io, '(a)') lines

     

       8
       8
       +
       

     

       9
       9
       +
          ct = 0

     

       10
       10
       +
          ! find starting position

     

       11
       11
       +
          do i = 1, size(lines)

     

       12
       12
       +
             if (index(lines(i), '^') > 0) then

     

       13
       13
       +
                y = i

     

       14
       14
       +
                x = index(lines(i), '^')

     

       15
       15
       +
                xd = 0

     

       16
       16
       +
                yd = -1

     

       17
       17
       +
                exit

     

       18
       18
       +
             end if

     

       19
       19
       +
          end do

     

       20
       20
       +
       

     

       21
       21
       +
          ! move until we leave the bounds when we hit a valid spot mark it with an X and increase count

     

       22
       22
       +
          do

     

       23
       23
       +
             ! are we going out of bounds?

     

       24
       24
       +
             if (x+xd < 1 .or. x+xd > len(lines(y)) .or. y+yd < 1 .or. y+yd > size(lines)) then

     

       25
       25
       +
                ct = ct + 1

     

       26
       26
       +
                lines(y)(x:x) = 'X'

     

       27
       27
       +
                exit

     

       28
       28
       +
             end if

     

       29
       29
       +
       

     

       30
       30
       +
             ! try to move

     

       31
       31
       +
             select case(lines(y+yd)(x+xd:x+xd))

     

       32
       32
       +
              case('.')

     

       33
       33
       +
                ! valid move

     

       34
       34
       +
                ct = ct + 1

     

       35
       35
       +
                x = x + xd

     

       36
       36
       +
                y = y + yd

     

       37
       37
       +
                lines(y)(x:x) = 'X'

     

       38
       38
       +
              case('X')

     

       39
       39
       +
                ! valid move but we've been here before

     

       40
       40
       +
                x = x + xd

     

       41
       41
       +
                y = y + yd

     

       42
       42
       +
              case('#')

     

       43
       43
       +
                ! we are blocked lets rotate 90 degrees

     

       44
       44
       +
                if(xd == 0 .and. yd == -1) then

     

       45
       45
       +
                   xd = 1

     

       46
       46
       +
                   yd = 0

     

       47
       47
       +
                else if (xd == 1 .and. yd == 0) then

     

       48
       48
       +
                   xd = 0

     

       49
       49
       +
                   yd = 1

     

       50
       50
       +
                else if (xd == 0 .and. yd == 1) then

     

       51
       51
       +
                   xd = -1

     

       52
       52
       +
                   yd = 0

     

       53
       53
       +
                else if (xd == -1 .and. yd == 0) then

     

       54
       54
       +
                   xd = 0

     

       55
       55
       +
                   yd = -1

     

       56
       56
       +
                end if

     

       57
       57
       +
              case default

     

       58
       58
       +
                exit

     

       59
       59
       +
             end select

     

       60
       60
       +
          end do

     

       61
       61
       +
          print*, lines

     

       62
       62
       +
          print*, "distinct: ", ct

     

       63
       63
       +
       end program day_06

     

       64
       64
       +

+97

2024/day_06_part_2.f90

···

       1
       1
       +
       program day_06_part_2

     

       2
       2
       +
          implicit none

     

       3
       3
       +
          character(len=130) :: line, lines(130), temp_lines(130)

     

       4
       4
       +
          integer:: io, x,y, xd,yd, i, j, ct, o_ct, init_x, init_y, init_xd, init_yd

     

       5
       5
       +
       

     

       6
       6
       +
          open(newunit=io, file='./day_06_input.txt', status='old', action='read')

     

       7
       7
       +
          read(io, '(a)') lines

     

       8
       8
       +
       

     

       9
       9
       +
          ct = 0

     

       10
       10
       +
          ! find starting position

     

       11
       11
       +
          do i = 1, size(lines)

     

       12
       12
       +
             if (index(lines(i), '^') > 0) then

     

       13
       13
       +
                y = i

     

       14
       14
       +
                x = index(lines(i), '^')

     

       15
       15
       +
                lines(i)(x:x) = '.' ! replace with a dot to not confuse this part

     

       16
       16
       +
                xd = 0

     

       17
       17
       +
                yd = -1

     

       18
       18
       +
                init_x = x

     

       19
       19
       +
                init_y = y

     

       20
       20
       +
                init_xd = xd

     

       21
       21
       +
                init_yd = yd

     

       22
       22
       +
                exit

     

       23
       23
       +
             end if

     

       24
       24
       +
          end do

     

       25
       25
       +
       

     

       26
       26
       +
          do i = 1, size(lines)

     

       27
       27
       +
             do j = 1, len(lines(i))

     

       28
       28
       +
                o_ct = 0

     

       29
       29
       +
                ! reset positions

     

       30
       30
       +
                x = init_x

     

       31
       31
       +
                y = init_y

     

       32
       32
       +
                xd = init_xd

     

       33
       33
       +
                yd = init_yd

     

       34
       34
       +
                temp_lines = lines ! fresh board every run

     

       35
       35
       +
                if(temp_lines(i)(j:j) == '.') then

     

       36
       36
       +
                   temp_lines(i)(j:j) = 'O'  ! place obstacle to test

     

       37
       37
       +
                   ! move until we leave the bounds when we hit a valid spot mark it with an X and increase count

     

       38
       38
       +
                   do

     

       39
       39
       +
                      ! are we going out of bounds?

     

       40
       40
       +
                      if (x+xd < 1 .or. x+xd > len(temp_lines(y)) .or. y+yd < 1 .or. y+yd > size(temp_lines)) then

     

       41
       41
       +
                         exit

     

       42
       42
       +
                      end if

     

       43
       43
       +
       

     

       44
       44
       +
                      ! try to move

     

       45
       45
       +
                      select case(temp_lines(y+yd)(x+xd:x+xd))

     

       46
       46
       +
                       case('.')

     

       47
       47
       +
                         ! valid move

     

       48
       48
       +
                         x = x + xd

     

       49
       49
       +
                         y = y + yd

     

       50
       50
       +
                       case('O')

     

       51
       51
       +
                         ! we are blocked lets rotate 90 degrees and count obstacle

     

       52
       52
       +
                         o_ct = o_ct + 1

     

       53
       53
       +
                         if(xd == 0 .and. yd == -1) then

     

       54
       54
       +
                            xd = 1

     

       55
       55
       +
                            yd = 0

     

       56
       56
       +
                         else if (xd == 1 .and. yd == 0) then

     

       57
       57
       +
                            xd = 0

     

       58
       58
       +
                            yd = 1

     

       59
       59
       +
                         else if (xd == 0 .and. yd == 1) then

     

       60
       60
       +
                            xd = -1

     

       61
       61
       +
                            yd = 0

     

       62
       62
       +
                         else if (xd == -1 .and. yd == 0) then

     

       63
       63
       +
                            xd = 0

     

       64
       64
       +
                            yd = -1

     

       65
       65
       +
                         end if

     

       66
       66
       +
                       case('#')

     

       67
       67
       +
                         ! we are blocked lets rotate 90 degrees

     

       68
       68
       +
                         ! change this to an O to try and detect when stuck

     

       69
       69
       +
                         temp_lines(y+yd)(x+xd:x+xd) = 'O'

     

       70
       70
       +
                         if(xd == 0 .and. yd == -1) then

     

       71
       71
       +
                            xd = 1

     

       72
       72
       +
                            yd = 0

     

       73
       73
       +
                         else if (xd == 1 .and. yd == 0) then

     

       74
       74
       +
                            xd = 0

     

       75
       75
       +
                            yd = 1

     

       76
       76
       +
                         else if (xd == 0 .and. yd == 1) then

     

       77
       77
       +
                            xd = -1

     

       78
       78
       +
                            yd = 0

     

       79
       79
       +
                         else if (xd == -1 .and. yd == 0) then

     

       80
       80
       +
                            xd = 0

     

       81
       81
       +
                            yd = -1

     

       82
       82
       +
                         end if

     

       83
       83
       +
                       case default

     

       84
       84
       +
                         exit

     

       85
       85
       +
                      end select

     

       86
       86
       +
                      if(o_ct > 100) then

     

       87
       87
       +
                         exit ! probably stuck

     

       88
       88
       +
                      end if

     

       89
       89
       +
                   end do

     

       90
       90
       +
                end if

     

       91
       91
       +
                if(o_ct > 100) then ! we got stuck probably 100 is so arbitrary

     

       92
       92
       +
                   ct = ct + 1

     

       93
       93
       +
                end if

     

       94
       94
       +
             end do

     

       95
       95
       +
          end do

     

       96
       96
       +
          print*, "block points: ", ct

     

       97
       97
       +
       end program day_06_part_2

+57

2024/day_07.f90

···

       1
       1
       +
       module day_07_utils

     

       2
       2
       +
          use iso_fortran_env, only: int64

     

       3
       3
       +
          implicit none

     

       4
       4
       +
       contains

     

       5
       5
       +
          recursive function test_values(arr, target, next_idx, current_value) result(pass)

     

       6
       6
       +
             implicit none

     

       7
       7
       +
             integer(kind=int64), intent(in) :: target, current_value, arr(:)

     

       8
       8
       +
             integer, intent(in) :: next_idx

     

       9
       9
       +
             logical :: pass

     

       10
       10
       +
             if(next_idx > size(arr)) then

     

       11
       11
       +
                pass = current_value == target

     

       12
       12
       +
                return

     

       13
       13
       +
             end if

     

       14
       14
       +
             pass = test_values(arr, target, next_idx + 1, current_value + arr(next_idx)) .or. &

     

       15
       15
       +
                test_values(arr, target, next_idx + 1, current_value * arr(next_idx))

     

       16
       16
       +
          end function test_values

     

       17
       17
       +
          logical function is_calibrated(arr, target)

     

       18
       18
       +
             implicit none

     

       19
       19
       +
             integer(kind=int64), intent(in) :: target, arr(:)

     

       20
       20
       +
             is_calibrated = test_values(arr, target, 2, arr(1))

     

       21
       21
       +
          end function is_calibrated

     

       22
       22
       +
       end module day_07_utils

     

       23
       23
       +
       program day_07

     

       24
       24
       +
          use iso_fortran_env, only: int64

     

       25
       25
       +
          use day_07_utils

     

       26
       26
       +
          implicit none

     

       27
       27
       +
          integer(kind=int64) :: test_number, res

     

       28
       28
       +
          integer(kind=int64), allocatable:: work(:)

     

       29
       29
       +
          integer :: io, ios, idx, i, ct

     

       30
       30
       +
          character(len=200) :: line, work_line

     

       31
       31
       +
          logical :: pass

     

       32
       32
       +
          res = 0

     

       33
       33
       +
          open(newunit=io, file='./day_07_input.txt', status='old', action='read')

     

       34
       34
       +
          do

     

       35
       35
       +
             read(io, '(a)', iostat=ios) line

     

       36
       36
       +
             if (ios /= 0) exit

     

       37
       37
       +
             idx = index(line, ':')

     

       38
       38
       +
             if (idx > 0) then

     

       39
       39
       +
                read(line(1:idx-1), *) test_number

     

       40
       40
       +
                ct = 0

     

       41
       41
       +
                work_line = trim(line(idx+1:len(trim(line))))

     

       42
       42
       +
                do i = 1 , len(trim(work_line))

     

       43
       43
       +
                   if(work_line(i:i) == ' ') then

     

       44
       44
       +
                      ct = ct + 1

     

       45
       45
       +
                   end if

     

       46
       46
       +
                end do

     

       47
       47
       +
                allocate(work(ct))

     

       48
       48
       +
                read(work_line, *) work(:)

     

       49
       49
       +
             end if

     

       50
       50
       +
             pass = is_calibrated(work, test_number)

     

       51
       51
       +
             if(pass) then

     

       52
       52
       +
                res = res + test_number

     

       53
       53
       +
             end if

     

       54
       54
       +
             deallocate(work)

     

       55
       55
       +
          end do

     

       56
       56
       +
          print*, "Result: ", res

     

       57
       57
       +
       end program day_07

+68

2024/day_07_part_2.f90

···

       1
       1
       +
       module day_07_part_2_utils

     

       2
       2
       +
          use iso_fortran_env, only: int64

     

       3
       3
       +
          implicit none

     

       4
       4
       +
       contains

     

       5
       5
       +
          recursive function test_values(arr, target, next_idx, current_value) result(pass)

     

       6
       6
       +
             implicit none

     

       7
       7
       +
             integer(kind=int64), intent(in) :: target, current_value, arr(:)

     

       8
       8
       +
             integer, intent(in) :: next_idx

     

       9
       9
       +
             character(len=20) :: str_1, str_2, concat_str

     

       10
       10
       +
             integer(kind=int64) :: concat_value

     

       11
       11
       +
             logical :: pass

     

       12
       12
       +
       

     

       13
       13
       +
             if(next_idx > size(arr)) then

     

       14
       14
       +
                pass = current_value == target

     

       15
       15
       +
                return

     

       16
       16
       +
             end if

     

       17
       17
       +
       

     

       18
       18
       +
             write(str_1, '(I0)') current_value

     

       19
       19
       +
             write(str_2, '(I0)') arr(next_idx)

     

       20
       20
       +
             concat_str = trim(str_1) // trim(str_2)

     

       21
       21
       +
             read(concat_str, '(I20)') concat_value

     

       22
       22
       +
       

     

       23
       23
       +
             pass = test_values(arr, target, next_idx + 1, current_value + arr(next_idx)) .or. &

     

       24
       24
       +
                test_values(arr, target, next_idx + 1, current_value * arr(next_idx)) .or. &

     

       25
       25
       +
                test_values(arr, target, next_idx + 1, concat_value)

     

       26
       26
       +
          end function test_values

     

       27
       27
       +
          logical function is_calibrated(arr, target)

     

       28
       28
       +
             implicit none

     

       29
       29
       +
             integer(kind=int64), intent(in) :: target, arr(:)

     

       30
       30
       +
       

     

       31
       31
       +
             is_calibrated = test_values(arr, target, 2, arr(1))

     

       32
       32
       +
          end function is_calibrated

     

       33
       33
       +
       end module day_07_part_2_utils

     

       34
       34
       +
       program day_07_part_2

     

       35
       35
       +
          use iso_fortran_env, only: int64

     

       36
       36
       +
          use day_07_part_2_utils

     

       37
       37
       +
          implicit none

     

       38
       38
       +
          integer(kind=int64) :: test_number, res

     

       39
       39
       +
          integer(kind=int64), allocatable:: work(:)

     

       40
       40
       +
          integer :: io, ios, idx, i, ct

     

       41
       41
       +
          character(len=200) :: line, work_line

     

       42
       42
       +
          logical :: pass

     

       43
       43
       +
          res = 0

     

       44
       44
       +
          open(newunit=io, file='./day_07_input.txt', status='old', action='read')

     

       45
       45
       +
          do

     

       46
       46
       +
             read(io, '(a)', iostat=ios) line

     

       47
       47
       +
             if (ios /= 0) exit

     

       48
       48
       +
             idx = index(line, ':')

     

       49
       49
       +
             if (idx > 0) then

     

       50
       50
       +
                read(line(1:idx-1), *) test_number

     

       51
       51
       +
                ct = 0

     

       52
       52
       +
                work_line = trim(line(idx+1:len(trim(line))))

     

       53
       53
       +
                do i = 1 , len(trim(work_line))

     

       54
       54
       +
                   if(work_line(i:i) == ' ') then

     

       55
       55
       +
                      ct = ct + 1

     

       56
       56
       +
                   end if

     

       57
       57
       +
                end do

     

       58
       58
       +
                allocate(work(ct))

     

       59
       59
       +
                read(work_line, *) work(:)

     

       60
       60
       +
             end if

     

       61
       61
       +
             pass = is_calibrated(work, test_number)

     

       62
       62
       +
             if(pass) then

     

       63
       63
       +
                res = res + test_number

     

       64
       64
       +
             end if

     

       65
       65
       +
             deallocate(work)

     

       66
       66
       +
          end do

     

       67
       67
       +
          print*, "Result: ", res

     

       68
       68
       +
       end program day_07_part_2

+142

2024/day_08.f90

···

       1
       1
       +
       module day_08_utils

     

       2
       2
       +
          implicit none

     

       3
       3
       +
          type node

     

       4
       4
       +
             character :: c

     

       5
       5
       +
             integer, allocatable :: x(:), y(:)

     

       6
       6
       +
          end type node

     

       7
       7
       +
       contains

     

       8
       8
       +
          subroutine append_to_integer_array(arr, val)

     

       9
       9
       +
             implicit none

     

       10
       10
       +
             integer, allocatable, intent(inout) :: arr(:)

     

       11
       11
       +
             integer, intent(in) :: val

     

       12
       12
       +
             integer, allocatable :: temp(:)

     

       13
       13
       +
             if(.not. allocated(arr)) then

     

       14
       14
       +
                ERROR STOP 'Array not allocated'

     

       15
       15
       +
             end if

     

       16
       16
       +
             allocate(temp(size(arr) + 1))

     

       17
       17
       +
             temp(1:size(arr)) = arr

     

       18
       18
       +
             temp(size(arr) + 1) = val

     

       19
       19
       +
             call move_alloc(temp, arr)

     

       20
       20
       +
          end subroutine append_to_integer_array

     

       21
       21
       +
       

     

       22
       22
       +
          subroutine add_node(nodes, c, x, y)

     

       23
       23
       +
             type(node), allocatable, intent(inout) :: nodes(:)

     

       24
       24
       +
             type(node), allocatable :: temp(:)

     

       25
       25
       +
             character, intent(in) :: c

     

       26
       26
       +
             integer, intent(in) :: x, y

     

       27
       27
       +
             integer :: i

     

       28
       28
       +
             do i = 1, size(nodes)

     

       29
       29
       +
                if (nodes(i)%c == c) then

     

       30
       30
       +
                   if(.not. allocated(nodes(i)%x)) then

     

       31
       31
       +
                      allocate(nodes(i)%x(1))

     

       32
       32
       +
                      nodes(i)%x(1) = x

     

       33
       33
       +
                   else

     

       34
       34
       +
                      call append_to_integer_array(nodes(i)%x, x)

     

       35
       35
       +
                   end if

     

       36
       36
       +
                   if(.not. allocated(nodes(i)%y)) then

     

       37
       37
       +
                      allocate(nodes(i)%y(1))

     

       38
       38
       +
                      nodes(i)%y(1) = y

     

       39
       39
       +
                   else

     

       40
       40
       +
                      call append_to_integer_array(nodes(i)%y, y)

     

       41
       41
       +
                   end if

     

       42
       42
       +
                   return

     

       43
       43
       +
                end if

     

       44
       44
       +
             end do

     

       45
       45
       +
             allocate(temp(size(nodes) + 1))

     

       46
       46
       +
             temp(1:size(nodes)) = nodes

     

       47
       47
       +
             allocate(temp(size(nodes) + 1)%x(1))

     

       48
       48
       +
             allocate(temp(size(nodes) + 1)%y(1))

     

       49
       49
       +
             temp(size(nodes) + 1)%c = c

     

       50
       50
       +
             temp(size(nodes) + 1)%x(1) = x

     

       51
       51
       +
             temp(size(nodes) + 1)%y(1) = y

     

       52
       52
       +
             call move_alloc(temp, nodes)

     

       53
       53
       +
          end subroutine add_node

     

       54
       54
       +
       end module day_08_utils

     

       55
       55
       +
       

     

       56
       56
       +
       program day_08

     

       57
       57
       +
          use day_08_utils

     

       58
       58
       +
          implicit none

     

       59
       59
       +
          character(len=50) :: lines(50)

     

       60
       60
       +
          integer :: io, i, j, k, l, score, xdist, ydist

     

       61
       61
       +
          integer, allocatable :: anti_x(:), anti_y(:)

     

       62
       62
       +
          type(node), allocatable :: nodes(:)

     

       63
       63
       +
          logical :: found

     

       64
       64
       +
       

     

       65
       65
       +
          open(newunit=io, file='day_08_input.txt', status='old', action='read')

     

       66
       66
       +
          read(io, '(A)') lines

     

       67
       67
       +
          score = 0

     

       68
       68
       +
          do i = 1, 50

     

       69
       69
       +
             do j = 1, 50

     

       70
       70
       +
                if(lines(i)(j:j) /= '.') then

     

       71
       71
       +
                   if(.not. allocated(nodes)) then

     

       72
       72
       +
                      allocate(nodes(1))

     

       73
       73
       +
                      nodes(1)%c = lines(i)(j:j)

     

       74
       74
       +
                      allocate(nodes(1)%x(1))

     

       75
       75
       +
                      allocate(nodes(1)%y(1))

     

       76
       76
       +
                      nodes(1)%x(1) = j

     

       77
       77
       +
                      nodes(1)%y(1) = i

     

       78
       78
       +
                   else

     

       79
       79
       +
                      call add_node(nodes, lines(i)(j:j), j, i)

     

       80
       80
       +
                   end if

     

       81
       81
       +
                end if

     

       82
       82
       +
             end do

     

       83
       83
       +
          end do

     

       84
       84
       +
          do i = 1, size(nodes)

     

       85
       85
       +
             do j = 1, size(nodes(i)%x)

     

       86
       86
       +
                do l = 1, size(nodes(i)%x)

     

       87
       87
       +
                   if(nodes(i)%x(j) == nodes(i)%x(l) .and. nodes(i)%y(j) == nodes(i)%y(l)) cycle ! don't compare same values

     

       88
       88
       +
                   xdist = nodes(i)%x(j) - nodes(i)%x(l)

     

       89
       89
       +
                   ydist = nodes(i)%y(j) - nodes(i)%y(l)

     

       90
       90
       +
                   if(nodes(i)%x(j) + xdist > 0 .and. nodes(i)%x(j) + xdist <= 50 .and. &

     

       91
       91
       +
                      nodes(i)%y(j) + ydist > 0 .and. nodes(i)%y(j) + ydist <= 50) then

     

       92
       92
       +
                      if(.not. allocated(anti_x)) then

     

       93
       93
       +
                         allocate(anti_x(1))

     

       94
       94
       +
                         anti_x(1) = nodes(i)%x(j) + xdist

     

       95
       95
       +
                         allocate(anti_y(1))

     

       96
       96
       +
                         anti_y(1) = nodes(i)%y(j) + ydist

     

       97
       97
       +
                         score = score + 1

     

       98
       98
       +
                      else

     

       99
       99
       +
                         found = .false.

     

       100
       100
       +
                         do k = 1, size(anti_x)

     

       101
       101
       +
                            if(anti_x(k) == nodes(i)%x(j) + xdist .and. anti_y(k) == nodes(i)%y(j) + ydist) then

     

       102
       102
       +
                               found = .true.

     

       103
       103
       +
                               exit

     

       104
       104
       +
                            end if

     

       105
       105
       +
                         end do

     

       106
       106
       +
                         if(.not. found) then

     

       107
       107
       +
                            call append_to_integer_array(anti_x, nodes(i)%x(j) + xdist)

     

       108
       108
       +
                            call append_to_integer_array(anti_y, nodes(i)%y(j) + ydist)

     

       109
       109
       +
       

     

       110
       110
       +
                            score = score + 1

     

       111
       111
       +
                         end if

     

       112
       112
       +
                      end if

     

       113
       113
       +
                   end if

     

       114
       114
       +
                   if(nodes(i)%x(l) - xdist > 0 .and. nodes(i)%x(l) - xdist <= 50 .and. &

     

       115
       115
       +
                      nodes(i)%y(l) - ydist > 0 .and. nodes(i)%y(l) - ydist <= 50) then

     

       116
       116
       +
                      if(.not. allocated(anti_x)) then

     

       117
       117
       +
                         allocate(anti_x(1))

     

       118
       118
       +
                         anti_x(1) = nodes(i)%x(l) - xdist

     

       119
       119
       +
                         allocate(anti_y(1))

     

       120
       120
       +
                         anti_y(1) = nodes(i)%y(l) - ydist

     

       121
       121
       +
                         score = score + 1

     

       122
       122
       +
                      else

     

       123
       123
       +
                         found = .false.

     

       124
       124
       +
                         do k = 1, size(anti_x)

     

       125
       125
       +
                            if(anti_x(k) == nodes(i)%x(l) - xdist .and. anti_y(k) == nodes(i)%y(l) - ydist) then

     

       126
       126
       +
                               found = .true.

     

       127
       127
       +
                               exit

     

       128
       128
       +
                            end if

     

       129
       129
       +
                         end do

     

       130
       130
       +
                         if(.not. found) then

     

       131
       131
       +
                            call append_to_integer_array(anti_x, nodes(i)%x(l) - xdist)

     

       132
       132
       +
                            call append_to_integer_array(anti_y, nodes(i)%y(l) - ydist)

     

       133
       133
       +
       

     

       134
       134
       +
                            score = score + 1

     

       135
       135
       +
                         end if

     

       136
       136
       +
                      end if

     

       137
       137
       +
                   end if

     

       138
       138
       +
                end do

     

       139
       139
       +
             end do

     

       140
       140
       +
          end do

     

       141
       141
       +
          print*, "Total : ", score

     

       142
       142
       +
       end program day_08

+164

2024/day_08_part_2.f90

···

       1
       1
       +
       module day_08_utils

     

       2
       2
       +
          implicit none

     

       3
       3
       +
          type node

     

       4
       4
       +
             character :: c

     

       5
       5
       +
             integer, allocatable :: x(:), y(:)

     

       6
       6
       +
          end type node

     

       7
       7
       +
       contains

     

       8
       8
       +
          subroutine append_to_integer_array(arr, val)

     

       9
       9
       +
             implicit none

     

       10
       10
       +
             integer, allocatable, intent(inout) :: arr(:)

     

       11
       11
       +
             integer, intent(in) :: val

     

       12
       12
       +
             integer, allocatable :: temp(:)

     

       13
       13
       +
             if(.not. allocated(arr)) then

     

       14
       14
       +
                ERROR STOP 'Array not allocated'

     

       15
       15
       +
             end if

     

       16
       16
       +
             allocate(temp(size(arr) + 1))

     

       17
       17
       +
             temp(1:size(arr)) = arr

     

       18
       18
       +
             temp(size(arr) + 1) = val

     

       19
       19
       +
             call move_alloc(temp, arr)

     

       20
       20
       +
          end subroutine append_to_integer_array

     

       21
       21
       +
       

     

       22
       22
       +
          subroutine add_node(nodes, c, x, y)

     

       23
       23
       +
             type(node), allocatable, intent(inout) :: nodes(:)

     

       24
       24
       +
             type(node), allocatable :: temp(:)

     

       25
       25
       +
             character, intent(in) :: c

     

       26
       26
       +
             integer, intent(in) :: x, y

     

       27
       27
       +
             integer :: i

     

       28
       28
       +
             do i = 1, size(nodes)

     

       29
       29
       +
                if (nodes(i)%c == c) then

     

       30
       30
       +
                   if(.not. allocated(nodes(i)%x)) then

     

       31
       31
       +
                      allocate(nodes(i)%x(1))

     

       32
       32
       +
                      nodes(i)%x(1) = x

     

       33
       33
       +
                   else

     

       34
       34
       +
                      call append_to_integer_array(nodes(i)%x, x)

     

       35
       35
       +
                   end if

     

       36
       36
       +
                   if(.not. allocated(nodes(i)%y)) then

     

       37
       37
       +
                      allocate(nodes(i)%y(1))

     

       38
       38
       +
                      nodes(i)%y(1) = y

     

       39
       39
       +
                   else

     

       40
       40
       +
                      call append_to_integer_array(nodes(i)%y, y)

     

       41
       41
       +
                   end if

     

       42
       42
       +
                   return

     

       43
       43
       +
                end if

     

       44
       44
       +
             end do

     

       45
       45
       +
             allocate(temp(size(nodes) + 1))

     

       46
       46
       +
             temp(1:size(nodes)) = nodes

     

       47
       47
       +
             allocate(temp(size(nodes) + 1)%x(1))

     

       48
       48
       +
             allocate(temp(size(nodes) + 1)%y(1))

     

       49
       49
       +
             temp(size(nodes) + 1)%c = c

     

       50
       50
       +
             temp(size(nodes) + 1)%x(1) = x

     

       51
       51
       +
             temp(size(nodes) + 1)%y(1) = y

     

       52
       52
       +
             call move_alloc(temp, nodes)

     

       53
       53
       +
          end subroutine add_node

     

       54
       54
       +
       end module day_08_utils

     

       55
       55
       +
       

     

       56
       56
       +
       program day_08

     

       57
       57
       +
          use day_08_utils

     

       58
       58
       +
          implicit none

     

       59
       59
       +
          character(len=50) :: lines(50)

     

       60
       60
       +
          integer :: io, i, j, k, l, score, xdist, ydist, next_x, next_y

     

       61
       61
       +
          integer, allocatable :: anti_x(:), anti_y(:)

     

       62
       62
       +
          type(node), allocatable :: nodes(:)

     

       63
       63
       +
          logical :: found

     

       64
       64
       +
       

     

       65
       65
       +
          open(newunit=io, file='day_08_input.txt', status='old', action='read')

     

       66
       66
       +
          read(io, '(A)') lines

     

       67
       67
       +
          score = 0

     

       68
       68
       +
          do i = 1, 50

     

       69
       69
       +
             do j = 1, 50

     

       70
       70
       +
                if(lines(i)(j:j) /= '.') then

     

       71
       71
       +
                   if(.not. allocated(nodes)) then

     

       72
       72
       +
                      allocate(nodes(1))

     

       73
       73
       +
                      nodes(1)%c = lines(i)(j:j)

     

       74
       74
       +
                      allocate(nodes(1)%x(1))

     

       75
       75
       +
                      allocate(nodes(1)%y(1))

     

       76
       76
       +
                      nodes(1)%x(1) = j

     

       77
       77
       +
                      nodes(1)%y(1) = i

     

       78
       78
       +
                   else

     

       79
       79
       +
                      call add_node(nodes, lines(i)(j:j), j, i)

     

       80
       80
       +
                   end if

     

       81
       81
       +
                end if

     

       82
       82
       +
             end do

     

       83
       83
       +
          end do

     

       84
       84
       +
          do i = 1, size(nodes)

     

       85
       85
       +
             do j = 1, size(nodes(i)%x)

     

       86
       86
       +
                if(.not. allocated(anti_x)) then

     

       87
       87
       +
                   allocate(anti_x(1))

     

       88
       88
       +
                   anti_x(1) = nodes(i)%x(j)

     

       89
       89
       +
                   allocate(anti_y(1))

     

       90
       90
       +
                   anti_y(1) = nodes(i)%y(j)

     

       91
       91
       +
                   score = score + 1

     

       92
       92
       +
                else

     

       93
       93
       +
                   found = .false.

     

       94
       94
       +
                   do k = 1, size(anti_x)

     

       95
       95
       +
                      if(anti_x(k) == nodes(i)%x(j) .and. anti_y(k) == nodes(i)%y(j)) then

     

       96
       96
       +
                         found = .true.

     

       97
       97
       +
                         exit

     

       98
       98
       +
                      end if

     

       99
       99
       +
                   end do

     

       100
       100
       +
                   if(.not. found) then

     

       101
       101
       +
                      call append_to_integer_array(anti_x, nodes(i)%x(j))

     

       102
       102
       +
                      call append_to_integer_array(anti_y, nodes(i)%y(j))

     

       103
       103
       +
       

     

       104
       104
       +
                      score = score + 1

     

       105
       105
       +
                   end if

     

       106
       106
       +
                end if

     

       107
       107
       +
                do l = 1, size(nodes(i)%x)

     

       108
       108
       +
                   if(nodes(i)%x(j) == nodes(i)%x(l) .and. nodes(i)%y(j) == nodes(i)%y(l)) cycle ! don't compare same values

     

       109
       109
       +
                   xdist = nodes(i)%x(j) - nodes(i)%x(l)

     

       110
       110
       +
                   ydist = nodes(i)%y(j) - nodes(i)%y(l)

     

       111
       111
       +
                   next_x = nodes(i)%x(j) + xdist

     

       112
       112
       +
                   next_y = nodes(i)%y(j) + ydist

     

       113
       113
       +
                   do

     

       114
       114
       +
                      if(next_x> 0 .and. next_x <= 50 .and. &

     

       115
       115
       +
                         next_y > 0 .and. next_y  <= 50) then

     

       116
       116
       +
                         found = .false.

     

       117
       117
       +
                         do k = 1, size(anti_x)

     

       118
       118
       +
                            if(anti_x(k) == next_x .and. anti_y(k) == next_y) then

     

       119
       119
       +
                               found = .true.

     

       120
       120
       +
                               exit

     

       121
       121
       +
                            end if

     

       122
       122
       +
                         end do

     

       123
       123
       +
                         if(.not. found) then

     

       124
       124
       +
                            call append_to_integer_array(anti_x, next_x)

     

       125
       125
       +
                            call append_to_integer_array(anti_y, next_y)

     

       126
       126
       +
       

     

       127
       127
       +
                            score = score + 1

     

       128
       128
       +
                         end if

     

       129
       129
       +
                         next_x = next_x + xdist

     

       130
       130
       +
                         next_y = next_y + ydist

     

       131
       131
       +
                      else

     

       132
       132
       +
                         exit

     

       133
       133
       +
                      end if

     

       134
       134
       +
                   end do

     

       135
       135
       +
                   next_x = nodes(i)%x(l) - xdist

     

       136
       136
       +
                   next_y = nodes(i)%y(l) - ydist

     

       137
       137
       +
                   do

     

       138
       138
       +
                      if(next_x > 0 .and. next_x  <= 50 .and. &

     

       139
       139
       +
                         next_y > 0 .and. next_y <= 50) then

     

       140
       140
       +
                         found = .false.

     

       141
       141
       +
                         do k = 1, size(anti_x)

     

       142
       142
       +
                            if(anti_x(k) == next_x .and. anti_y(k) == next_y) then

     

       143
       143
       +
                               found = .true.

     

       144
       144
       +
                               exit

     

       145
       145
       +
                            end if

     

       146
       146
       +
                         end do

     

       147
       147
       +
                         if(.not. found) then

     

       148
       148
       +
                            call append_to_integer_array(anti_x, next_x)

     

       149
       149
       +
                            call append_to_integer_array(anti_y, next_y)

     

       150
       150
       +
       

     

       151
       151
       +
                            score = score + 1

     

       152
       152
       +
                         end if

     

       153
       153
       +
                         next_x = next_x - xdist

     

       154
       154
       +
                         next_y = next_y - ydist

     

       155
       155
       +
       

     

       156
       156
       +
                      else

     

       157
       157
       +
                         exit

     

       158
       158
       +
                      end if

     

       159
       159
       +
                   end do

     

       160
       160
       +
                end do

     

       161
       161
       +
             end do

     

       162
       162
       +
          end do

     

       163
       163
       +
          print*, "Total : ", score

     

       164
       164
       +
       end program day_08

+152

2024/day_09.f90

···

       1
       1
       +
       module day_09_utils

     

       2
       2
       +
          implicit none

     

       3
       3
       +
       contains

     

       4
       4
       +
          subroutine swap_to_first_positive_integer_from_end(arr, idx)

     

       5
       5
       +
             implicit none

     

       6
       6
       +
             integer, allocatable, intent(inout) :: arr(:)

     

       7
       7
       +
             integer, intent(in) :: idx

     

       8
       8
       +
             integer, allocatable :: temp(:)

     

       9
       9
       +
             integer :: i, res

     

       10
       10
       +
             do i = 0, size(arr) - 1

     

       11
       11
       +
                if(arr(size(arr) - i) > -1) then

     

       12
       12
       +
                   arr(idx) = arr(size(arr) - i)

     

       13
       13
       +
                   allocate(temp(size(arr) - (i +1)))

     

       14
       14
       +
                   temp = arr(1:size(arr) - (i+1))

     

       15
       15
       +
                   call move_alloc(temp, arr)

     

       16
       16
       +
                   return

     

       17
       17
       +
                end if

     

       18
       18
       +
             end do

     

       19
       19
       +
          end subroutine swap_to_first_positive_integer_from_end

     

       20
       20
       +
          subroutine append_to_integer_array_times(arr, val, times)

     

       21
       21
       +
             implicit none

     

       22
       22
       +
             integer, allocatable, intent(inout) :: arr(:)

     

       23
       23
       +
             integer, intent(in) :: val, times

     

       24
       24
       +
             integer, allocatable :: temp(:)

     

       25
       25
       +
             if(.not. allocated(arr)) then

     

       26
       26
       +
                ERROR STOP 'Array not allocated'

     

       27
       27
       +
             end if

     

       28
       28
       +
             allocate(temp(size(arr) + times))

     

       29
       29
       +
             temp(1:size(arr)) = arr

     

       30
       30
       +
             temp(size(arr) + 1:size(temp)) = val

     

       31
       31
       +
             call move_alloc(temp, arr)

     

       32
       32
       +
          end subroutine append_to_integer_array_times

     

       33
       33
       +
       end module day_09_utils

     

       34
       34
       +
       program day_09

     

       35
       35
       +
          use iso_fortran_env, only: int64

     

       36
       36
       +
          use day_09_utils

     

       37
       37
       +
          implicit none

     

       38
       38
       +
          integer :: io, ios, i, j, block_n, ct, block_start, block_end, space_start, space_end

     

       39
       39
       +
          integer(kind=int64) :: res

     

       40
       40
       +
          character(len=1) :: c

     

       41
       41
       +
          integer, allocatable :: system(:), work(:), done(:)

     

       42
       42
       +
          logical :: is_space, space_block_start

     

       43
       43
       +
       

     

       44
       44
       +
          open(newunit=io, file='./day_09_input.txt', status='old', action='read', access='stream')

     

       45
       45
       +
          is_space = .false.

     

       46
       46
       +
          block_n = 0

     

       47
       47
       +
          do

     

       48
       48
       +
             read(io, iostat=ios) c

     

       49
       49
       +
             if (ios /= 0) exit

     

       50
       50
       +
             read(c, *, iostat=ios) i

     

       51
       51
       +
             if(ios /= 0) exit

     

       52
       52
       +
             if (i == 0) then

     

       53
       53
       +
                is_space = .false.

     

       54
       54
       +
                cycle

     

       55
       55
       +
             end if

     

       56
       56
       +
             if (.not. allocated(system)) then

     

       57
       57
       +
                allocate(system(i))

     

       58
       58
       +
                system(1:i) = block_n

     

       59
       59
       +
                is_space = .true.

     

       60
       60
       +
                block_n = block_n + 1

     

       61
       61
       +
             else

     

       62
       62
       +
                if (is_space) then

     

       63
       63
       +
                   call append_to_integer_array_times(system, -1, i)

     

       64
       64
       +
                   is_space = .false.

     

       65
       65
       +
                else

     

       66
       66
       +
                   call append_to_integer_array_times(system, block_n, i)

     

       67
       67
       +
                   block_n = block_n + 1

     

       68
       68
       +
                   is_space = .true.

     

       69
       69
       +
                end if

     

       70
       70
       +
             end if

     

       71
       71
       +
          end do

     

       72
       72
       +
          allocate(work(size(system)))

     

       73
       73
       +
          work = system

     

       74
       74
       +
          ct = count(work > -1)

     

       75
       75
       +
          outer: do

     

       76
       76
       +
             do i = 1, size(work)

     

       77
       77
       +
                if (i == ct) exit outer ! we are done

     

       78
       78
       +
                if(work(i) < 0) then

     

       79
       79
       +
                   call swap_to_first_positive_integer_from_end(work, i)

     

       80
       80
       +
                   exit

     

       81
       81
       +
                end if

     

       82
       82
       +
             end do

     

       83
       83
       +
          end do outer

     

       84
       84
       +
          res = 0

     

       85
       85
       +
          do i = 1, size(work)

     

       86
       86
       +
             if(work(i) > -1) then

     

       87
       87
       +
                res = res + ((i-1) * work(i))

     

       88
       88
       +
             else

     

       89
       89
       +
             end if

     

       90
       90
       +
          end do

     

       91
       91
       +
          print *, res

     

       92
       92
       +
          ! start_part_2

     

       93
       93
       +
          res = 0

     

       94
       94
       +
          deallocate(work)

     

       95
       95
       +
          allocate(work(size(system)))

     

       96
       96
       +
          work = system

     

       97
       97
       +
          block_n = -1

     

       98
       98
       +
          block_start = -1

     

       99
       99
       +
          block_end = -1

     

       100
       100
       +
          do i = size(work), 1, -1

     

       101
       101
       +
             if(block_n == -1 .and. work(i) /= -1) then

     

       102
       102
       +
                ! we are starting a block

     

       103
       103
       +
                block_end = i

     

       104
       104
       +
                block_n = work(i)

     

       105
       105
       +
                if(allocated(done) .and. count(done == block_n) > 0) then

     

       106
       106
       +
                   block_n = -1

     

       107
       107
       +
                   block_start = -1

     

       108
       108
       +
                   block_end = -1

     

       109
       109
       +
                   cycle

     

       110
       110
       +
                else if(.not. allocated(done)) then

     

       111
       111
       +
                   allocate(done(1))

     

       112
       112
       +
                   done(1) = block_n

     

       113
       113
       +
                else

     

       114
       114
       +
                   call append_to_integer_array_times(done, block_n, 1)

     

       115
       115
       +
                end if

     

       116
       116
       +
             else if (block_n /= -1 .and. block_n /= work(i)) then

     

       117
       117
       +
                ! we are ending the block

     

       118
       118
       +
                block_start = i

     

       119
       119
       +
       

     

       120
       120
       +
                ! lets try to move the block

     

       121
       121
       +
                space_block_start = .true.

     

       122
       122
       +
                do j = 1, size(work)

     

       123
       123
       +
                   if (j > block_start) exit

     

       124
       124
       +
                   if(space_block_start .and. work(j) == -1) then

     

       125
       125
       +
                      space_start = j

     

       126
       126
       +
                      space_block_start = .false.

     

       127
       127
       +
                   else if (.not. space_block_start .and. work(j) /= -1) then

     

       128
       128
       +
                      space_end = j

     

       129
       129
       +
                      space_block_start = .true.

     

       130
       130
       +
                      if(space_end - space_start >= block_end - block_start) then

     

       131
       131
       +
                         work(space_start:space_start + (block_end - (block_start +1))) = block_n

     

       132
       132
       +
                         work(block_start+1:block_end) = -1

     

       133
       133
       +
                         exit

     

       134
       134
       +
                      end if

     

       135
       135
       +
                      space_end = -1

     

       136
       136
       +
                      space_start = -1

     

       137
       137
       +
                   end if

     

       138
       138
       +
                end do

     

       139
       139
       +
                block_n = work(i)

     

       140
       140
       +
                block_end = i

     

       141
       141
       +
                block_start = -1

     

       142
       142
       +
             end if

     

       143
       143
       +
          end do

     

       144
       144
       +
          do i = 1, size(work)

     

       145
       145
       +
             if(work(i) /= -1) then

     

       146
       146
       +
                res = res + ((i-1) * work(i))

     

       147
       147
       +
             end if

     

       148
       148
       +
          end do

     

       149
       149
       +
          print *, res

     

       150
       150
       +
       end program day_09

     

       151
       151
       +
       

     

       152
       152
       +

+51

2025/day_01.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_01.

     

       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.

     

       13
       13
       +
                02 direction PIC X.

     

       14
       14
       +
                02 move-text PIC XXX.

     

       15
       15
       +
              WORKING-STORAGE SECTION.

     

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

     

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

     

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

     

       19
       19
       +
              01 eof PIC X.

     

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

     

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

     

       22
       22
       +
       

     

       23
       23
       +
              

     

       24
       24
       +
              PROCEDURE DIVISION.

     

       25
       25
       +
                OPEN INPUT input-file.

     

       26
       26
       +
                SET eof-n to TRUE.

     

       27
       27
       +
                PERFORM UNTIL eof-y

     

       28
       28
       +
                    READ input-file AT END

     

       29
       29
       +
                        SET eof-y to TRUE

     

       30
       30
       +
                    NOT AT END

     

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

     

       32
       32
       +
                      IF direction = "L"

     

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

     

       34
       34
       +
                      END-IF

     

       35
       35
       +
                      

     

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

     

       37
       37
       +
                      move-num, 100) 

     

       38
       38
       +
       

     

       39
       39
       +
                      if dial-position < 0

     

       40
       40
       +
                        ADD 100 to dial-position

     

       41
       41
       +
                      END-IF

     

       42
       42
       +
       

     

       43
       43
       +
                      if dial-position = 0 

     

       44
       44
       +
                        ADD 1 to zero-count

     

       45
       45
       +
                      END-IF

     

       46
       46
       +
                     END-READ

     

       47
       47
       +
                END-PERFORM.

     

       48
       48
       +
                CLOSE input-file.

     

       49
       49
       +
                DISPLAY zero-count.

     

       50
       50
       +
              STOP-RUN.

     

       51
       51
       +

+67

2025/day_01_part2.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_01_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.

     

       13
       13
       +
                02 direction PIC X.

     

       14
       14
       +
                02 move-text PIC XXX.

     

       15
       15
       +
              WORKING-STORAGE SECTION.

     

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

     

       17
       17
       +
              01 new-position PIC 9(2).

     

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

     

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

     

       20
       20
       +
              01 eof PIC X.

     

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

     

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

     

       23
       23
       +
       

     

       24
       24
       +
              

     

       25
       25
       +
              PROCEDURE DIVISION.

     

       26
       26
       +
                OPEN INPUT input-file.

     

       27
       27
       +
                SET eof-n to TRUE.

     

       28
       28
       +
                PERFORM UNTIL eof-y

     

       29
       29
       +
                    READ input-file AT END

     

       30
       30
       +
                        SET eof-y to TRUE

     

       31
       31
       +
                    NOT AT END

     

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

     

       33
       33
       +
                      IF move-num > 99 

     

       34
       34
       +
                        COMPUTE zero-count = zero-count + (move-num / 100) 

     

       35
       35
       +
                      END-IF

     

       36
       36
       +
       

     

       37
       37
       +
                      IF direction = "L"

     

       38
       38
       +
                       COMPUTE move-num = 0 - move-num 

     

       39
       39
       +
                      END-IF

     

       40
       40
       +
                      

     

       41
       41
       +
                      COMPUTE new-position = FUNCTION MOD(dial-position +

     

       42
       42
       +
                      move-num, 100) 

     

       43
       43
       +
       

     

       44
       44
       +
                      if new-position < 0

     

       45
       45
       +
                        ADD 100 to new-position

     

       46
       46
       +
                      END-IF

     

       47
       47
       +
       

     

       48
       48
       +
                      EVALUATE new-position

     

       49
       49
       +
                        WHEN 0

     

       50
       50
       +
                          ADD 1 to zero-count

     

       51
       51
       +
                         WHEN < dial-position AND direction = "R" AND

     

       52
       52
       +
                           dial-position <> 0

     

       53
       53
       +
                           ADD 1 to zero-count

     

       54
       54
       +
                         WHEN > dial-position AND direction = "L" AND

     

       55
       55
       +
                           dial-position <> 0

     

       56
       56
       +
                           ADD 1 to zero-count

     

       57
       57
       +
                       END-EVALUATE

     

       58
       58
       +
       

     

       59
       59
       +
                      

     

       60
       60
       +
                      MOVE new-position TO dial-position

     

       61
       61
       +
       

     

       62
       62
       +
                     END-READ

     

       63
       63
       +
                END-PERFORM.

     

       64
       64
       +
                CLOSE input-file.

     

       65
       65
       +
                DISPLAY zero-count.

     

       66
       66
       +
              STOP-RUN.

     

       67
       67
       +

+76

2025/day_02.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_02.

     

       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 X(4096). 

     

       13
       13
       +
              WORKING-STORAGE SECTION.

     

       14
       14
       +
              01 ptr PIC 9(4) Value 1.

     

       15
       15
       +
              01 len PIC 9(4).

     

       16
       16
       +
              01 left-val PIC 9(32).

     

       17
       17
       +
              01 right-val PIC 9(32).

     

       18
       18
       +
              01 grouping PIC X(65).

     

       19
       19
       +
       

     

       20
       20
       +
              01 val-string PIC Z(32).

     

       21
       21
       +
              01 val-string-len PIC 9(2).

     

       22
       22
       +
              01 val-string-start-idx PIC 9(2).

     

       23
       23
       +
              01 val-string-half PIC 9(2).

     

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

     

       25
       25
       +
       

     

       26
       26
       +
              01 eof PIC X.

     

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

     

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

     

       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
       +
                     INSPECT input-line TALLYING len FOR CHARACTERS BEFORE

     

       37
       37
       +
                     SPACE

     

       38
       38
       +
       

     

       39
       39
       +
                     PERFORM UNTIL ptr > len

     

       40
       40
       +
                       UNSTRING input-line DELIMITED BY "," INTO grouping WITH

     

       41
       41
       +
                       POINTER ptr

     

       42
       42
       +
                       END-UNSTRING

     

       43
       43
       +
       

     

       44
       44
       +
                       UNSTRING grouping DELIMITED BY "-" INTO left-val,

     

       45
       45
       +
                       right-val

     

       46
       46
       +
                       END-UNSTRING

     

       47
       47
       +
                       

     

       48
       48
       +
                       PERFORM VARYING  left-val FROM left-val BY 1 UNTIL

     

       49
       49
       +
                         left-val > right-val

     

       50
       50
       +
                         MOVE left-val TO val-string

     

       51
       51
       +
       

     

       52
       52
       +
                         COMPUTE val-string-len = FUNCTION LENGTH(FUNCTION

     

       53
       53
       +
                         TRIM(val-string))

     

       54
       54
       +
                         IF FUNCTION MOD(val-string-len, 2) = 0

     

       55
       55
       +
       

     

       56
       56
       +
                           COMPUTE val-string-start-idx = 

     

       57
       57
       +
                           (FUNCTION LENGTH(val-string) - val-string-len ) + 1

     

       58
       58
       +
                           COMPUTE val-string-half = val-string-len / 2

     

       59
       59
       +
       

     

       60
       60
       +
                           IF val-string(val-string-start-idx:val-string-half) 

     

       61
       61
       +
                             = val-string(val-string-start-idx +

     

       62
       62
       +
                             val-string-half:val-string-half)

     

       63
       63
       +
       

     

       64
       64
       +
                             ADD left-val TO result 

     

       65
       65
       +
                           END-IF

     

       66
       66
       +
                         END-IF

     

       67
       67
       +
                       END-PERFORM

     

       68
       68
       +
       

     

       69
       69
       +
                     END-PERFORM

     

       70
       70
       +
       

     

       71
       71
       +
                     END-READ

     

       72
       72
       +
                END-PERFORM.

     

       73
       73
       +
                CLOSE input-file.

     

       74
       74
       +
                DISPLAY result.

     

       75
       75
       +
              STOP-RUN.

     

       76
       76
       +

+103

2025/day_02_part2.cbl

···

       1
       1
       +
              IDENTIFICATION DIVISION.

     

       2
       2
       +
              PROGRAM-ID. day_02_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 X(4096). 

     

       13
       13
       +
              WORKING-STORAGE SECTION.

     

       14
       14
       +
              01 ptr PIC 9(4) Value 1.

     

       15
       15
       +
              01 len PIC 9(4).

     

       16
       16
       +
              01 left-val PIC 9(32).

     

       17
       17
       +
              01 right-val PIC 9(32).

     

       18
       18
       +
              01 grouping PIC X(65).

     

       19
       19
       +
       

     

       20
       20
       +
              01 val-string PIC Z(32).

     

       21
       21
       +
              01 val-string-len PIC 9(2).

     

       22
       22
       +
              01 val-string-start-idx PIC 9(2).

     

       23
       23
       +
              01 val-string-half PIC 9(2).

     

       24
       24
       +
              01 val-window PIC 9(2) VALUE 1. 

     

       25
       25
       +
              01 c-idx PIC 9(2).

     

       26
       26
       +
              01 s-left PIC Z(16).

     

       27
       27
       +
              01 s-right PIC Z(16).

     

       28
       28
       +
              01 no-match PIC X VALUE "N".

     

       29
       29
       +
              01 result PIC 9(32) VALUE ZEROS.

     

       30
       30
       +
       

     

       31
       31
       +
              01 eof PIC X.

     

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

     

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

     

       34
       34
       +
              PROCEDURE DIVISION.

     

       35
       35
       +
                OPEN INPUT input-file.

     

       36
       36
       +
                SET eof-n to TRUE.

     

       37
       37
       +
                PERFORM UNTIL eof-y

     

       38
       38
       +
                    READ input-file AT END

     

       39
       39
       +
                        SET eof-y to TRUE

     

       40
       40
       +
                    NOT AT END

     

       41
       41
       +
                     INSPECT input-line TALLYING len FOR CHARACTERS BEFORE

     

       42
       42
       +
                     SPACE

     

       43
       43
       +
       

     

       44
       44
       +
                     PERFORM UNTIL ptr > len

     

       45
       45
       +
                       UNSTRING input-line DELIMITED BY "," INTO grouping WITH

     

       46
       46
       +
                       POINTER ptr

     

       47
       47
       +
                       END-UNSTRING

     

       48
       48
       +
       

     

       49
       49
       +
                       UNSTRING grouping DELIMITED BY "-" INTO left-val,

     

       50
       50
       +
                       right-val

     

       51
       51
       +
                       END-UNSTRING

     

       52
       52
       +
                       

     

       53
       53
       +
                       PERFORM VARYING  left-val FROM left-val BY 1 UNTIL

     

       54
       54
       +
                         left-val > right-val

     

       55
       55
       +
                         MOVE left-val TO val-string

     

       56
       56
       +
       

     

       57
       57
       +
                         COMPUTE val-string-len = FUNCTION LENGTH(FUNCTION

     

       58
       58
       +
                         TRIM(val-string))

     

       59
       59
       +
       

     

       60
       60
       +
                         COMPUTE val-string-start-idx = 

     

       61
       61
       +
                         (FUNCTION LENGTH(val-string) - val-string-len ) + 1

     

       62
       62
       +
       

     

       63
       63
       +
                         COMPUTE val-string-half = val-string-len / 2

     

       64
       64
       +
       

     

       65
       65
       +
                         PERFORM VARYING val-window FROM 1 BY 1 

     

       66
       66
       +
                           UNTIL val-window > val-string-half

     

       67
       67
       +
                           COMPUTE c-idx = val-string-start-idx + val-window

     

       68
       68
       +
                           MOVE "N" to no-match

     

       69
       69
       +
                           PERFORM VARYING c-idx 

     

       70
       70
       +
                             FROM c-idx 

     

       71
       71
       +
                             BY val-window

     

       72
       72
       +
                             UNTIL c-idx

     

       73
       73
       +
                             > FUNCTION LENGTH(val-string)  

     

       74
       74
       +
       

     

       75
       75
       +
                             MOVE val-string(val-string-start-idx:val-window)

     

       76
       76
       +
                             TO s-left

     

       77
       77
       +
       

     

       78
       78
       +
                             IF (c-idx + val-window 

     

       79
       79
       +
                               > FUNCTION LENGTH(val-string))

     

       80
       80
       +
                                  MOVE val-string(c-idx:) TO s-right

     

       81
       81
       +
                              ELSE

     

       82
       82
       +
                                  MOVE val-string(c-idx:val-window) TO s-right

     

       83
       83
       +
                              END-IF

     

       84
       84
       +
                             

     

       85
       85
       +
                             IF NOT s-left = s-right 

     

       86
       86
       +
                               MOVE "Y" to no-match

     

       87
       87
       +
                               EXIT PERFORM

     

       88
       88
       +
                             END-IF

     

       89
       89
       +
                           END-PERFORM

     

       90
       90
       +
                           IF no-match = "N"

     

       91
       91
       +
                             ADD left-val to result

     

       92
       92
       +
                             EXIT PERFORM

     

       93
       93
       +
                           END-IF

     

       94
       94
       +
                         END-PERFORM

     

       95
       95
       +
                       END-PERFORM

     

       96
       96
       +
                     END-PERFORM

     

       97
       97
       +
       

     

       98
       98
       +
                     END-READ

     

       99
       99
       +
                END-PERFORM.

     

       100
       100
       +
                CLOSE input-file.

     

       101
       101
       +
                DISPLAY result.

     

       102
       102
       +
              STOP-RUN.

     

       103
       103
       +

+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
       +

+5 -2

README.md

···

       1
       1
        
       # Advent of Code Repo

     

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

     

       3
       3
        
       

     

       4
       4
       -
       I stream all my solutions live on Twitch at [twitch.tv/treybastian](https://twitch.tv/treybastian).

     

       4
       4
       +
       ## 2025 - COBOL 

     

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

     

       6
       6
       +
       

     

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

     

       5
       8
        
       

     

       6
       9
        
       ## 2024 - Fortran

     

       7
       10
        
       You'll need GNUFortran to run these solutions.

     

       8
       11
        
       

     

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

     

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

Compare changes