diff options
Diffstat (limited to '1/part1.f95')
| -rw-r--r-- | 1/part1.f95 | 13 |
1 files changed, 8 insertions, 5 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 |