Submission #991610


Source Code Expand

import Control.Monad
import Control.Applicative
import Data.Maybe
import Data.List
import Data.Char

main :: IO ()
main = do
  [h,w] <- map read . words <$> getLine
  ss <- replicateM h $ words <$> getLine
  nya ss $ \y x -> putStrLn $ chr (x + 65) : show y

nya :: [[String]] -> (Int -> Int -> a) -> a
nya [] con = undefined
nya (x:xs) con = case elemIndex "snuke" x of
  Just y -> con 1 y
  Nothing -> nya xs $ \p q -> con (p+1) q

Submission Info

Submission Time
Task A - Where's Snuke?
User phi16
Language Haskell (GHC 7.10.3)
Score 100
Code Size 448 Byte
Status AC
Exec Time 4 ms
Memory 1020 KB

Judge Result

Set Name sample all
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 9
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
Case Name Status Exec Time Memory
01-01.txt AC 3 ms 508 KB
01-02.txt AC 3 ms 508 KB
01-03.txt AC 3 ms 508 KB
01-04.txt AC 3 ms 508 KB
01-05.txt AC 4 ms 1020 KB
01-06.txt AC 3 ms 636 KB
01-07.txt AC 4 ms 636 KB
sample-01.txt AC 3 ms 508 KB
sample-02.txt AC 3 ms 508 KB