Submission #11621602

---

Source Code Expand

program name
    implicit none
    integer(4):: h,w
    character(1),allocatable:: c(:,:)
    integer(4):: i,j, start(2), goal(2)
    logical,allocatable:: is_passed(:,:)

    read*, h,w
    allocate(c(w, h), is_passed(0:w+1, 0:h+1))

    block
        character(:),allocatable:: inpt_c
        allocate(character(w):: inpt_c)
        do i=1,h
            read*, inpt_c
            do j=1,w
                c(j,i) = inpt_c(j:j)
                if (c(j,i) == 's') start = [j,i]
                if (c(j,i) == 'g') goal = [j,i]
            end do
        end do
    end block
    
    is_passed(:,:) = .false.
    is_passed(0,:) = .true.
    is_passed(w+1,:) = .true.
    is_passed(:,0) = .true. 
    is_passed(:,h+1) = .true.

    if (dfs(start(1),start(2))) then
        print*, 'Yes'
    else
        print*, 'No'
    end if

contains
    recursive function dfs(nw,nh) result(ret)
        integer(4):: nw,nh
        logical:: ret
        integer:: dh,dw
        ret = .false.
        is_passed(nw,nh) = .true.
        do dh=-1,1
            do dw=-1,1
                if (dh/=0 .and. dw/=0) cycle
                if (is_passed(nw+dw, nh+dh)) cycle
                if (c(nw+dw, nh+dh) == 'g') then
                    ret = .true.
                    return
                end if

                if (c(nw+dw, nh+dh) == '.') then
                    ret = ret .or. dfs(nw+dw, nh+dh)
                else
                    ret = ret .or. .false.
                end if
            end do
        end do

    end function
end program name

Submission Info

Judge Result