Submission #5913412

---

Source Code Expand

program where_is_snuke
  implicit none
  integer :: h, w, i, j
  character(5) :: s(26)
  s = ""
  read(*,*) h, w
  do i = 1, h
    read(*,*) s(1:w)
    do j = 1, w
      if (s(j).eq."snuke") then
        write(*,'(a)') achar(j+64)//achar(i+48)
        stop
      end if
    end do
  end do
  stop
end program where_is_snuke

Submission Info

Judge Result