Use constants day 1 Fortran

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