Submission #1365167

Source Code Expand

import Data.List

main = do
 [h,w] <- map read . words <$> getLine
 ss <- words <$> getContents
 let (Just i) = findIndex (== "snuke") ss
 let col = ['A'..'Z'] !! (mod i w)
 let low = div i w + 1
 putStrLn (col : show low)

Submission Info

Submission Time
Task A - Where's Snuke?
User aimy
Language Haskell (GHC 7.10.3)
Score 100
Code Size 230 Byte
Status AC
Exec Time 2 ms
Memory 764 KB

Judge Result

Set Name sample all
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 11
Set Name Test Cases
sample sample-01.txt, sample-02.txt
all 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 AC 1 ms 380 KB
01-02.txt AC 1 ms 380 KB
01-03.txt AC 1 ms 508 KB
01-04.txt AC 1 ms 508 KB
01-05.txt AC 2 ms 764 KB
01-06.txt AC 2 ms 636 KB
01-07.txt AC 2 ms 636 KB
sample-01.txt AC 1 ms 508 KB
sample-02.txt AC 1 ms 508 KB