diff options
| author | Bond_009 <bond.009@outlook.com> | 2020-12-10 21:25:43 +0100 |
|---|---|---|
| committer | Bond_009 <bond.009@outlook.com> | 2020-12-10 21:25:43 +0100 |
| commit | 4454a3060b525e274a1c4bfd7c3d4b9224668461 (patch) | |
| tree | e6d7434ab0215fe6a9912cf8feba31374dfc9022 /1/part1.f95 | |
| parent | 1d2a7c90f666fa4fb87f81373ed690fc6c11e4e1 (diff) | |
Change .f95 to .f90
Diffstat (limited to '1/part1.f95')
| -rw-r--r-- | 1/part1.f95 | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/1/part1.f95 b/1/part1.f95 deleted file mode 100644 index a7c09c8..0000000 --- a/1/part1.f95 +++ /dev/null @@ -1,25 +0,0 @@ -program day1 - implicit none - - integer, parameter :: input_len = 200 - integer, parameter :: search = 2020 - - integer :: i, j - 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 - if (input(i) + input(j) == search) then - print *, input(i) * input(j) - stop - end if - end do - end do - -end program day1 |