From 241976926c48561b366b62b8fa456d804b45126d Mon Sep 17 00:00:00 2001
From: Bond_009 <bond.009@outlook.com>
Date: Thu, 10 Dec 2020 19:09:37 +0100
Subject: Add Fortran solutions for day 1

---
 .gitignore  |  2 ++
 1/part1.f95 | 22 ++++++++++++++++++++++
 1/part2.f95 | 24 ++++++++++++++++++++++++
 3 files changed, 48 insertions(+)
 create mode 100644 1/part1.f95
 create mode 100644 1/part2.f95

diff --git a/.gitignore b/.gitignore
index 5a65103..3707b49 100644
--- a/.gitignore
+++ b/.gitignore
@@ -63,4 +63,6 @@ part1
 part2
 part1_fast
 part2_fast
+fpart1
+fpart2
 run
diff --git a/1/part1.f95 b/1/part1.f95
new file mode 100644
index 0000000..9196162
--- /dev/null
+++ b/1/part1.f95
@@ -0,0 +1,22 @@
+program day1
+    implicit none
+
+    integer :: i, j
+    integer, dimension(200) :: input
+
+    open(10, file='input', status='old')
+    do i = 1, 200
+        read(10, *) input(i)
+    end do
+    close(10)
+
+    do i = 1, 200
+        do j = 1, 200
+            if (input(i) + input(j) == 2020) then
+                print *, input(i) * input(j)
+                stop
+            end if
+        end do
+    end do
+
+end program day1
diff --git a/1/part2.f95 b/1/part2.f95
new file mode 100644
index 0000000..b0d45df
--- /dev/null
+++ b/1/part2.f95
@@ -0,0 +1,24 @@
+program day1
+    implicit none
+
+    integer :: i, j, k
+    integer, dimension(200) :: input
+
+    open(10, file='input', status='old')
+    do i = 1, 200
+        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
+                    print *, input(i) * input(j) * input(k)
+                    stop
+                end if
+            end do
+        end do
+    end do
+
+end program day1
-- 
cgit v1.2.3