From 1d2a7c90f666fa4fb87f81373ed690fc6c11e4e1 Mon Sep 17 00:00:00 2001 From: Bond_009 Date: Thu, 10 Dec 2020 19:26:46 +0100 Subject: Use constants day 1 Fortran --- 1/part1.f95 | 13 ++++++++----- 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 -- cgit v1.2.3