commit fe76f7204ae665dd2bea75fe7026d38beda01891 · treybastian.com/advent-of-code

+83 -2

2024/day_05.f90

···

       1
        
       module day_05_utils

     

       0
        
       
     

       2
        
       contains

     

       3
        
          subroutine append_to_integer_array(arr, val)

     

       0
        
       
     

       4
        
             integer, allocatable, intent(inout) :: arr(:)

     

       5
        
             integer, intent(in) :: val

     

       6
        
             integer, allocatable :: temp(:)

     
···

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

     

       13
        
             call move_alloc(temp, arr)

     

       14
        
          end subroutine append_to_integer_array

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       15
        
       end module day_05_utils

     

       16
        
       program day_05

     

       17
        
          use day_05_utils

     

       18
        
          implicit none

     

       19
       -
          integer :: io, ios, idx, a, b, ct, i, j, res

     

       20
        
          integer, allocatable :: left(:), right(:), print_list(:), work(:)

     

       21
        
          character(len=100) ::line

     

       22
        
          logical :: found

     

       23
        
       

     

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

     

       25
        
          res = 0

     

       0
        
       
     

       26
        
          do

     

       27
        
             read(io, '(a)', iostat=ios) line

     

       28
        
             if(ios /= 0) exit !eof

     
···

       100
        
                end do

     

       101
        
                if (.not. found) then

     

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

     

       0
        
       
     

       0
        
       
     

       103
        
                end if

     

       104
       -
       

     

       105
        
                deallocate(print_list)

     

       106
        
             end if

     

       107
        
          end do

     
···

       109
        
          deallocate(left)

     

       110
        
          deallocate(right)

     

       111
        
          print*, "Result ", res

     

       0
        
       
     

       112
        
       end program day_05

···

       1
        
       module day_05_utils

     

       2
       +
          implicit none

     

       3
        
       contains

     

       4
        
          subroutine append_to_integer_array(arr, val)

     

       5
       +
             implicit none

     

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

     

       7
        
             integer, intent(in) :: val

     

       8
        
             integer, allocatable :: temp(:)

     
···

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

     

       15
        
             call move_alloc(temp, arr)

     

       16
        
          end subroutine append_to_integer_array

     

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

     

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

     

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

     

       20
       +
             implicit none

     

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

     

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

     

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

     

       24
       +
             logical :: found

     

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

     

       26
       +
             copy = arr

     

       27
       +
             do

     

       28
       +
                found = .false.

     

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

     

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

     

       31
       +
                      if(allocated(work)) then

     

       32
       +
                         deallocate(work)

     

       33
       +
                      end if

     

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

     

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

     

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

     

       37
       +
                               allocate(work(1))

     

       38
       +
                               work(1) = left(j)

     

       39
       +
                            else

     

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

     

       41
       +
                            end if

     

       42
       +
                         end if

     

       43
       +
                      end do

     

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

     

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

     

       46
       +
                            tmp = copy(i)

     

       47
       +
                            copy(i) = copy(j)

     

       48
       +
                            copy(j) = tmp

     

       49
       +
                            found = .true.

     

       50
       +
                            exit outer

     

       51
       +
                         end if

     

       52
       +
                      end do

     

       53
       +
                   end if

     

       54
       +
       

     

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

     

       56
       +
                      if(allocated(work)) then

     

       57
       +
                         deallocate(work)

     

       58
       +
                      end if

     

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

     

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

     

       61
       +
       

     

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

     

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

     

       64
       +
                                  allocate(work(1))

     

       65
       +
                                  work(1) = right(j)

     

       66
       +
                               else

     

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

     

       68
       +
                               end if

     

       69
       +
                            end if

     

       70
       +
                         end do

     

       71
       +
                         do j = 1, size(copy)

     

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

     

       73
       +
                               tmp = copy(i)

     

       74
       +
                               copy(i) = copy(j)

     

       75
       +
                               copy(j) = tmp

     

       76
       +
                               found = .true.

     

       77
       +
                               exit outer

     

       78
       +
                            end if

     

       79
       +
                         end do

     

       80
       +
                      end if

     

       81
       +
                   else

     

       82
       +
                      exit outer

     

       83
       +
                   end if

     

       84
       +
                end do outer

     

       85
       +
                if(.not. found) exit

     

       86
       +
             end do

     

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

     

       88
       +
             deallocate(copy)

     

       89
       +
             if(allocated(work)) then

     

       90
       +
                deallocate(work)

     

       91
       +
             end if

     

       92
       +
          end function fix_and_get_middle_value

     

       93
        
       end module day_05_utils

     

       94
        
       program day_05

     

       95
        
          use day_05_utils

     

       96
        
          implicit none

     

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

     

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

     

       99
        
          character(len=100) ::line

     

       100
        
          logical :: found

     

       101
        
       

     

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

     

       103
        
          res = 0

     

       104
       +
          res_part2 = 0

     

       105
        
          do

     

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

     

       107
        
             if(ios /= 0) exit !eof

     
···

       179
        
                end do

     

       180
        
                if (.not. found) then

     

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

     

       182
       +
                else

     

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

     

       184
        
                end if

     

       0
        
       
     

       185
        
                deallocate(print_list)

     

       186
        
             end if

     

       187
        
          end do

     
···

       189
        
          deallocate(left)

     

       190
        
          deallocate(right)

     

       191
        
          print*, "Result ", res

     

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

     

       193
        
       end program day_05