Added Fortran solution for 175.1.

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-175/adam-russell/fortran/ch-1.f b/challenge-175/adam-russell/fortran/ch-1.f
new file mode 100644
index 0000000000..d7148a4ab6
--- /dev/null
+++ b/challenge-175/adam-russell/fortran/ch-1.f
@@ -0,0 +1,27 @@
+program last_sunday
+use datetime_module, only: datetime, timedelta, clock
+implicit none
+
+character(10), dimension(12) :: last_sundays  
+integer :: month 
+do month = 1, 12 
+    last_sundays(month) = last_sunday_month(month, 2022) 
+    write(*, *) last_sundays(month)  
+end do
+
+contains
+
+    function last_sunday_month(month, year) result(sunday)  
+        integer, intent(in) :: month, year
+        integer :: day
+        character(10) :: sunday
+        type(datetime) :: date
+        do day = 20, 31
+            date = datetime(year, month, day)
+            if (date % isValid() .and. date % weekday() == 0) then
+                write(sunday, '(i4,a1,i0.2,a1,i2)') year, '-', month, '-', day 
+            end if     
+        end do  
+    end function last_sunday_month
+
+end program last_sunday