1/part1.f95


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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