diff options
Diffstat (limited to '1')
| -rw-r--r-- | 1/part1.f95 | 13 | ||||
| -rw-r--r-- | 1/part2.f95 | 15 |
2 files changed, 17 insertions, 11 deletions
diff --git a/1/part1.f95 b/1/part1.f95 index 9196162..a7c09c8 100644 --- a/1/part1.f95 +++ b/1/part1.f95 @@ -1,18 +1,21 @@ program day1 implicit none + integer, parameter :: input_len = 200 + integer, parameter :: search = 2020 + integer :: i, j - integer, dimension(200) :: input + integer, dimension(input_len) :: input open(10, file='input', status='old') - do i = 1, 200 + do i = 1, input_len read(10, *) input(i) end do close(10) - do i = 1, 200 - do j = 1, 200 - if (input(i) + input(j) == 2020) then + do i = 1, input_len + do j = 1, input_len + if (input(i) + input(j) == search) then print *, input(i) * input(j) stop end if diff --git a/1/part2.f95 b/1/part2.f95 index b0d45df..b3d6bd2 100644 --- a/1/part2.f95 +++ b/1/part2.f95 @@ -1,19 +1,22 @@ program day1 implicit none + integer, parameter :: input_len = 200 + integer, parameter :: search = 2020 + integer :: i, j, k - integer, dimension(200) :: input + integer, dimension(input_len) :: input open(10, file='input', status='old') - do i = 1, 200 + do i = 1, input_len read(10, *) input(i) end do close(10) - do i = 1, 200 - do j = 1, 200 - do k = 1, 200 - if (input(i) + input(j) + input(k) == 2020) then + do i = 1, input_len + do j = 1, input_len + do k = 1, input_len + if (input(i) + input(j) + input(k) == search) then print *, input(i) * input(j) * input(k) stop end if |