Submission #3335584


Source Code Expand

import Data.List
main = do
	getLine
 	s <- map words . lines <$> getContents
    	
 	putStrLn $ head .concat $ [[j:(show i) | (str,j)<-zip l ['A'..], str=="snuke" ] | (l,i)<-zip s [1..]]

Submission Info

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

Compile Error

Main.hs:3:1: Warning: Tab character

Main.hs:4:2: Warning: Tab character

Main.hs:5:5: Warning: Tab character

Main.hs:6:2: Warning: Tab character

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 380 KB
01-05.txt AC 2 ms 1020 KB
01-06.txt AC 1 ms 636 KB
01-07.txt AC 1 ms 636 KB
sample-01.txt AC 1 ms 508 KB
sample-02.txt AC 1 ms 380 KB