CODE FESTIVAL 2016 Final (Parallel)

Submission #1365167

Source codeソースコード

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

Task問題 A - Where's Snuke?
User nameユーザ名 aimy
Created time投稿日時
Language言語 Haskell (GHC 7.10.3)
Status状態 AC
Score得点 100
Source lengthソースコード長 230 Byte
File nameファイル名
Exec time実行時間 2 ms
Memory usageメモリ使用量 764 KB

Test case

Set

Set name Score得点 / Max score Cases
sample - sample-01.txt,sample-02.txt
all 100 / 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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