commit 4a18141f582733953fff0fe7a6ee116b6094c14d · treybastian.com/advent-of-code

+36 -36

2024/day_01.f90

···

       1
       -
       module sorting 

     

       2
       -
         ! apparently you need to put the subroutine in a module

     

       3
       -
         implicit none

     

       4
       -
         contains 

     

       5
       -
         subroutine sort(arr)

     

       6
        
             !! a little insertion sort KISS

     

       7
        
             !! also yea we have no in built sorting

     

       8
       -
           implicit none

     

       9
       -
           integer, intent(inout) :: arr(1000)

     

       10
       -
           integer :: i, j, key

     

       11
       -
           do i = 2, 1000 

     

       12
       -
             key = arr(i)

     

       13
       -
             j = i - 1

     

       14
       -
             do while (j > 0 .and. arr(j) > key)

     

       15
       -
               arr(j+1) = arr(j)

     

       16
       -
               j = j - 1

     

       0
        
       
     

       0
        
       
     

       17
        
             end do

     

       18
       -
             arr(j+1) = key

     

       19
       -
           end do

     

       20
       -
         end subroutine sort

     

       21
        
       end module sorting

     

       22
        
       

     

       23
        
       program day_01

     

       24
       -
         use sorting

     

       25
       -
         implicit none

     

       26
       -
         integer :: io, i, dist, sim, left(1000), right(1000) ! yea we are coding to the input file and not generic

     

       27
       -
         open(newunit=io, file='./day_01_input.txt', status='old', action='read')

     

       28
        
       

     

       29
       -
         do i = 1, 1000

     

       30
       -
           read(io, *) left(i), right(i) ! read both values in line

     

       31
       -
         end do

     

       32
        
       

     

       33
       -
         close(10) ! close the file

     

       34
        
       

     

       35
       -
         call sort(left)

     

       36
       -
         call sort(right)

     

       37
        
       

     

       38
       -
         ! if we dont init these bad things happen on multiple runs

     

       39
       -
         dist = 0 

     

       40
       -
         sim = 0

     

       41
        
       

     

       42
       -
         do i = 1, 1000

     

       43
       -
          dist = dist + abs(left(i) - right(i)) 

     

       44
       -
          sim = sim + left(i) * count(right == left(i)) 

     

       45
       -
         end do

     

       46
        
       

     

       47
       -
           print*, "distance: ", dist

     

       48
       -
           print*, "similarity: ", sim

     

       49
        
       end program day_01

     

       50

···

       1
       +
       module sorting

     

       2
       +
          ! apparently you need to put the subroutine in a module

     

       3
       +
          implicit none

     

       4
       +
       contains

     

       5
       +
          subroutine sort(arr)

     

       6
        
             !! a little insertion sort KISS

     

       7
        
             !! also yea we have no in built sorting

     

       8
       +
             implicit none

     

       9
       +
             integer, intent(inout) :: arr(1000)

     

       10
       +
             integer :: i, j, key

     

       11
       +
             do i = 2, 1000

     

       12
       +
                key = arr(i)

     

       13
       +
                j = i - 1

     

       14
       +
                do while (j > 0 .and. arr(j) > key)

     

       15
       +
                   arr(j+1) = arr(j)

     

       16
       +
                   j = j - 1

     

       17
       +
                end do

     

       18
       +
                arr(j+1) = key

     

       19
        
             end do

     

       20
       +
          end subroutine sort

     

       0
        
       
     

       0
        
       
     

       21
        
       end module sorting

     

       22
        
       

     

       23
        
       program day_01

     

       24
       +
          use sorting

     

       25
       +
          implicit none

     

       26
       +
          integer :: io, i, dist, sim, left(1000), right(1000) ! yea we are coding to the input file and not generic

     

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

     

       28
        
       

     

       29
       +
          do i = 1, 1000

     

       30
       +
             read(io, *) left(i), right(i) ! read both values in line

     

       31
       +
          end do

     

       32
        
       

     

       33
       +
          close(10) ! close the file

     

       34
        
       

     

       35
       +
          call sort(left)

     

       36
       +
          call sort(right)

     

       37
        
       

     

       38
       +
          ! if we dont init these bad things happen on multiple runs

     

       39
       +
          dist = 0

     

       40
       +
          sim = 0

     

       41
        
       

     

       42
       +
          do i = 1, 1000

     

       43
       +
             dist = dist + abs(left(i) - right(i))

     

       44
       +
             sim = sim + left(i) * count(right == left(i))

     

       45
       +
          end do

     

       46
        
       

     

       47
       +
          print*, "distance: ", dist

     

       48
       +
          print*, "similarity: ", sim

     

       49
        
       end program day_01

     

       50

+49 -49

2024/day_02.f90

···

       1
        
       program day_02

     

       2
       -
         implicit none

     

       3
       -
         logical :: is_decrement, fail

     

       4
       -
         integer :: io, i,x, spaces, res

     

       5
       -
         integer, dimension(:), allocatable :: list

     

       6
       -
         character(len=100) :: line

     

       7
        
       

     

       8
       -
         open(newunit=io, file='./day_02_input.txt', status='old', action='read')

     

       9
        
       

     

       10
       -
         res = 0

     

       11
       -
         do i = 1, 1000 

     

       12
       -
           read(io, '(a)') line ! reading the line 

     

       13
       -
           spaces = 1 ! reset space count

     

       14
       -
           do x = 1, len(trim(line))

     

       15
       -
             ! counting spaces to see how big of an array we need to allocate

     

       16
       -
             if(iachar(line(x:x))== 32 ) then

     

       17
       -
               spaces = spaces+1 

     

       18
       -
             end if

     

       19
       -
           end do

     

       20
        
       

     

       21
       -
           allocate(list(spaces))

     

       22
       -
           read(line, *) list !reading the ints into an array

     

       23
       -
           fail = .false.

     

       24
       -
             

     

       25
       -
           do x = 1, size(list) -1

     

       26
       -
             if (list(x) == list(x+1)) then 

     

       27
       -
               fail = .true.

     

       28
       -
               exit

     

       29
       -
             end if

     

       30
       -
             if(x == 1 .and. list(x) > list(x+1)) then

     

       31
       -
               is_decrement = .true.

     

       32
       -
             else if (x==1 .and. list(x) < list(x+1)) then

     

       33
       -
               is_decrement = .false.

     

       34
       -
             end if

     

       35
       -
             

     

       36
       -
             if(is_decrement)  then

     

       37
       -
               if (list(x) < list(x+1) .or. abs(list(x) - list(x+1)) > 3) then 

     

       38
       -
                fail = .true.

     

       39
       -
                exit 

     

       40
       -
               end if

     

       41
       -
             else

     

       42
       -
               if (list(x) >  list(x+1) .or. abs(list(x) - list(x+1)) > 3) then 

     

       43
       -
                 fail = .true.

     

       44
       -
                 exit 

     

       45
       -
               end if

     

       46
       -
             end if

     

       47
       -
           end do

     

       48
       -
           if (fail .eqv. .false.) then

     

       49
       -
            res = res + 1 

     

       50
       -
           endif

     

       51
       -
           deallocate(list)

     

       52
       -
         end do

     

       53
       -
         print*, res 

     

       54
        
       end program day_02

···

       1
        
       program day_02

     

       2
       +
          implicit none

     

       3
       +
          logical :: is_decrement, fail

     

       4
       +
          integer :: io, i,x, spaces, res

     

       5
       +
          integer, dimension(:), allocatable :: list

     

       6
       +
          character(len=100) :: line

     

       7
        
       

     

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

     

       9
        
       

     

       10
       +
          res = 0

     

       11
       +
          do i = 1, 1000

     

       12
       +
             read(io, '(a)') line ! reading the line

     

       13
       +
             spaces = 1 ! reset space count

     

       14
       +
             do x = 1, len(trim(line))

     

       15
       +
                ! counting spaces to see how big of an array we need to allocate

     

       16
       +
                if(iachar(line(x:x))== 32 ) then

     

       17
       +
                   spaces = spaces+1

     

       18
       +
                end if

     

       19
       +
             end do

     

       20
        
       

     

       21
       +
             allocate(list(spaces))

     

       22
       +
             read(line, *) list !reading the ints into an array

     

       23
       +
             fail = .false.

     

       24
       +
       

     

       25
       +
             do x = 1, size(list) -1

     

       26
       +
                if (list(x) == list(x+1)) then

     

       27
       +
                   fail = .true.

     

       28
       +
                   exit

     

       29
       +
                end if

     

       30
       +
                if(x == 1 .and. list(x) > list(x+1)) then

     

       31
       +
                   is_decrement = .true.

     

       32
       +
                else if (x==1 .and. list(x) < list(x+1)) then

     

       33
       +
                   is_decrement = .false.

     

       34
       +
                end if

     

       35
       +
       

     

       36
       +
                if(is_decrement)  then

     

       37
       +
                   if (list(x) < list(x+1) .or. abs(list(x) - list(x+1)) > 3) then

     

       38
       +
                      fail = .true.

     

       39
       +
                      exit

     

       40
       +
                   end if

     

       41
       +
                else

     

       42
       +
                   if (list(x) >  list(x+1) .or. abs(list(x) - list(x+1)) > 3) then

     

       43
       +
                      fail = .true.

     

       44
       +
                      exit

     

       45
       +
                   end if

     

       46
       +
                end if

     

       47
       +
             end do

     

       48
       +
             if (fail .eqv. .false.) then

     

       49
       +
                res = res + 1

     

       50
       +
             endif

     

       51
       +
             deallocate(list)

     

       52
       +
          end do

     

       53
       +
          print*, res

     

       54
        
       end program day_02

+80 -76

2024/day_02_part_2.f90

···

       1
       -
       module day2_utils 

     

       2
       -
         implicit none

     

       3
       -
         contains

     

       4
       -
         subroutine has_fail_value(list, res) 

     

       5
       -
           implicit none

     

       6
       -
           integer, allocatable, intent(in) :: list(:)

     

       7
       -
           integer :: i

     

       8
       -
           integer, intent(out):: res

     

       9
       -
           logical is_decrement

     

       10
        
       

     

       11
       -
           res = -1 

     

       12
       -
           do i = 1, size(list) - 1

     

       13
       -
           if (list(i) == list(i+1)) then 

     

       14
       -
              res= i 

     

       15
       -
              exit

     

       16
       -
             end if

     

       17
       -
             if(i == 1 .and. list(i) > list(i+1)) then

     

       18
       -
               is_decrement = .true.

     

       19
       -
             else if (i==1 .and. list(i) < list(i+1)) then

     

       20
       -
               is_decrement = .false.

     

       21
       -
             end if

     

       22
       -
             

     

       23
       -
             if(is_decrement)  then

     

       24
       -
               if (list(i) < list(i+1) .or. abs(list(i) - list(i+1)) > 3) then 

     

       25
       -
                res = i 

     

       26
       -
                 exit

     

       27
       -
               end if

     

       28
       -
             else

     

       29
       -
               if (list(i) >  list(i+1) .or. abs(list(i) - list(i+1)) > 3) then 

     

       30
       -
                 res = i

     

       31
       -
                 exit

     

       32
       -
               end if

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       33
        
             end if

     

       34
       -
           end do

     

       35
       -
         end subroutine has_fail_value

     

       36
        
       end module day2_utils

     

       37
        
       

     

       38
        
       program day_02_part_2

     

       39
       -
         use day2_utils

     

       40
       -
         implicit none

     

       41
       -
         logical :: is_decrement 

     

       42
       -
         integer :: io, i,x,y, fail, spaces, res

     

       43
       -
         integer, dimension(:), allocatable :: list, list2

     

       44
       -
         character(len=100) :: line

     

       45
        
       

     

       46
       -
         open(newunit=io, file='./day_02_input.txt', status='old', action='read')

     

       47
        
       

     

       48
       -
         res = 0

     

       49
       -
         do i = 1, 1000 

     

       50
       -
           read(io, '(a)') line ! reading the line 

     

       51
       -
           spaces = 1 ! reset space count

     

       52
       -
           do x = 1, len(trim(line))

     

       53
       -
             ! counting spaces to see how big of an array we need to allocate

     

       54
       -
             if(iachar(line(x:x))== 32 ) then

     

       55
       -
               spaces = spaces+1 

     

       56
       -
             end if

     

       57
       -
           end do

     

       58
       -
       

     

       59
       -
           allocate(list(spaces))

     

       60
       -
           read(line, *) list !reading the ints into an array

     

       61
       -
           fail = -1

     

       62
       -
           call has_fail_value(list, fail) 

     

       63
       -
           if (fail > 0) then 

     

       64
       -
             y = 1

     

       65
       -
             allocate(list2(spaces -1))

     

       66
       -
             do x = 1, size(list)

     

       67
       -
               if(x /= fail) then

     

       68
       -
                 list2(y) = list(x)

     

       69
       -
                 y = y+1

     

       70
       -
               end if

     

       71
        
             end do

     

       72
       -
             fail = -1

     

       73
       -
             call has_fail_value(list2, fail)

     

       74
       -
             if(fail > 0) then

     

       75
       -
               print*, list2(:)

     

       76
       -
              end if

     

       77
       -
             deallocate(list2)

     

       78
        
       

     

       79
       -
            end if

     

       80
       -
            if (fail == -1) then

     

       81
       -
            res = res + 1 

     

       82
       -
           endif

     

       83
       -
           deallocate(list)

     

       84
       -
         end do

     

       85
       -
         print*, res 

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       86
        
       end program day_02_part_2

···

       1
       +
       module day2_utils

     

       2
       +
          implicit none

     

       3
       +
       contains

     

       4
       +
          subroutine is_safe(list, res)

     

       5
       +
             implicit none

     

       6
       +
             integer, allocatable, intent(in) :: list(:)

     

       7
       +
             logical, intent(out):: res

     

       8
       +
             integer :: i, diff

     

       9
       +
             logical is_decrement

     

       10
        
       

     

       11
       +
             res = .true.

     

       12
       +
             is_decrement = .false.

     

       13
       +
             do i = 1, size(list) - 1

     

       14
       +
                if(i == 1 .and. list(i) > list(i+1)) then

     

       15
       +
                   is_decrement = .true.

     

       16
       +
                end if

     

       17
       +
                diff = abs(list(i) - list(i+1))

     

       18
       +
                if(is_decrement)  then

     

       19
       +
                   if (list(i) < list(i+1) .or. diff > 3 .or. diff < 1) then

     

       20
       +
                      res = .false.

     

       21
       +
                      exit

     

       22
       +
                   end if

     

       23
       +
                else

     

       24
       +
                   if (list(i) >  list(i+1) .or. diff > 3 .or. diff < 1) then

     

       25
       +
                      res = .false.

     

       26
       +
                      exit

     

       27
       +
                   end if

     

       28
       +
                end if

     

       29
       +
             end do

     

       30
       +
          end subroutine is_safe

     

       31
       +
          subroutine safe_with_dampener(list, res)

     

       32
       +
             implicit none

     

       33
       +
             integer, allocatable, intent(in) :: list(:)

     

       34
       +
             integer, allocatable :: work(:)

     

       35
       +
             logical, intent(out):: res

     

       36
       +
             integer :: i, x, idx

     

       37
       +
             res = .true.

     

       38
       +
             call is_safe(list, res)

     

       39
       +
             if(.not. res) then

     

       40
       +
                allocate(work(size(list)-1))

     

       41
       +
                do i = 1, size(list)

     

       42
       +
                   idx = 1

     

       43
       +
                   do x = 1, size(list)

     

       44
       +
                      if (x /= i) then

     

       45
       +
                         work(idx) = list(x)

     

       46
       +
                         idx = idx + 1

     

       47
       +
                      end if

     

       48
       +
                   end do

     

       49
       +
                   res = .true.

     

       50
       +
                   call is_safe(work, res)

     

       51
       +
                   if(res) then

     

       52
       +
                      exit

     

       53
       +
                   end if

     

       54
       +
                end do

     

       55
        
             end if

     

       56
       +
          end subroutine safe_with_dampener

     

       0
        
       
     

       57
        
       end module day2_utils

     

       58
        
       

     

       59
        
       program day_02_part_2

     

       60
       +
          use day2_utils

     

       61
       +
          implicit none

     

       62
       +
          logical :: is_decrement, safe

     

       63
       +
          integer :: io, i, x, spaces, res

     

       64
       +
          integer, dimension(:), allocatable :: list

     

       65
       +
          character(len=100) :: line

     

       66
        
       

     

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

     

       68
        
       

     

       69
       +
          res = 0

     

       70
       +
          do i = 1, 1000

     

       71
       +
             read(io, '(a)') line ! reading the line

     

       72
       +
             spaces = 1 ! reset space count

     

       73
       +
             do x = 1, len(trim(line))

     

       74
       +
                ! counting spaces to see how big of an array we need to allocate

     

       75
       +
                if(iachar(line(x:x))== 32 ) then

     

       76
       +
                   spaces = spaces+1

     

       77
       +
                end if

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       78
        
             end do

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       79
        
       

     

       80
       +
             allocate(list(spaces))

     

       81
       +
             read(line, *) list !reading the ints into an array

     

       82
       +
             safe = .true. !set fail to false by default

     

       83
       +
             call safe_with_dampener(list, safe) ! check if the array has a fail idx

     

       84
       +
             if (safe) then

     

       85
       +
                res = res + 1

     

       86
       +
             endif

     

       87
       +
             deallocate(list)

     

       88
       +
          end do

     

       89
       +
          print*, res

     

       90
        
       end program day_02_part_2