Submission #5913412


Source Code Expand

Copy
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

Submission Time
Task A - Where's Snuke?
User ue1221
Language Fortran (gfortran v4.8.4)
Score 0
Code Size 339 Byte
Status
Exec Time 1 ms
Memory 256 KB

Judge Result

Set Name Score / Max Score Test Cases
sample 0 / 0 sample-01.txt, sample-02.txt
all 0 / 100 sample-01.txt, sample-02.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, sample-01.txt, sample-02.txt
Case Name Status Exec Time Memory
01-01.txt 1 ms 256 KB
01-02.txt 1 ms 256 KB
01-03.txt 1 ms 256 KB
01-04.txt 1 ms 256 KB
01-05.txt 1 ms 256 KB
01-06.txt 1 ms 256 KB
01-07.txt 1 ms 256 KB
sample-01.txt 1 ms 256 KB
sample-02.txt 1 ms 256 KB