diff options
Diffstat (limited to '1/part2.f90')
| -rw-r--r-- | 1/part2.f90 | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/1/part2.f90 b/1/part2.f90 deleted file mode 100644 index b3d6bd2..0000000 --- a/1/part2.f90 +++ /dev/null @@ -1,27 +0,0 @@ -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 |
