diff options
| -rw-r--r-- | .gitignore | 2 | ||||
| -rw-r--r-- | 1/part1.f95 | 22 | ||||
| -rw-r--r-- | 1/part2.f95 | 24 |
3 files changed, 48 insertions, 0 deletions
@@ -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 |