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 |
|
|
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 |