Change .f95 to .f90

1 files changed, 27 insertions, 0 deletions

diff --git a/1/part2.f90 b/1/part2.f90
new file mode 100644
index 0000000..b3d6bd2
--- /dev/null
+++ b/1/part2.f90
@@ -0,0 +1,27 @@
+program day1
+    implicit none
+
+    integer, parameter :: input_len = 200
+    integer, parameter :: search = 2020
+
+    integer :: i, j, k
+    integer, dimension(input_len) :: input
+
+    open(10, file='input', status='old')
+    do i = 1, input_len
+        read(10, *) input(i)
+    end do
+    close(10)
+
+    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
+            end do
+        end do
+    end do
+
+end program day1