1 files changed, 0 insertions, 45 deletions
diff --git a/9/part1.f90 b/9/part1.f90
deleted file mode 100644
index a89ee41..0000000
--- a/9/part1.f90
+++ /dev/null
@@ -1,45 +0,0 @@
-integer function has_sum(arg, arr)
-    implicit none
-
-    integer, parameter :: arr_len = 25
-
-    integer (kind=8) :: arg
-    integer (kind=8), dimension(25) :: arr
-    integer :: i, j
-
-    do i = 1, arr_len
-        do j = 1, arr_len
-            if (arr(i) + arr(j) == arg) then
-                has_sum = 1
-                return
-            end if
-        end do
-    end do
-
-    has_sum = 0
-    return
-end function has_sum
-
-program day9
-    implicit none
-
-    integer, parameter :: input_len = 1000
-
-    integer :: has_sum, i, tmp
-    integer (kind=8), 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 = 26, input_len
-        tmp = has_sum(input(i), input(i - 25))
-        if (tmp == 0) then
-            print *, input(i)
-            stop
-        end if
-    end do
-
-end program day9