Submission #1688112
Source Code Expand
{-# LANGUAGE FlexibleContexts, OverloadedStrings #-} import Control.Applicative import Control.Monad import qualified Data.ByteString.Char8 as B import Data.Maybe (fromJust) import Text.Printf import Debug.Trace solve s = ('N' `elem` s) == ('S' `elem` s) && ('W' `elem` s) == ('E' `elem` s) main = do s <- getLine putStrLn $ if solve s then "Yes" else "No" -- util getInts :: IO [Int] getInts = map (fst . fromJust . B.readInt) . B.words <$> B.getLine substr :: Int -> Int -> B.ByteString -> B.ByteString substr b l s = B.take l $ B.drop b s
Submission Info
Submission Time | |
---|---|
Task | A - Wanna go back home |
User | okaduki |
Language | Haskell (GHC 7.10.3) |
Score | 200 |
Code Size | 572 Byte |
Status | AC |
Exec Time | 2 ms |
Memory | 508 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | s1.txt, s2.txt, s3.txt, s4.txt |
All | 01.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 13.txt, 15.txt, s1.txt, s2.txt, s3.txt, s4.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 2 ms | 508 KB |
04.txt | AC | 2 ms | 508 KB |
05.txt | AC | 2 ms | 508 KB |
06.txt | AC | 2 ms | 508 KB |
07.txt | AC | 2 ms | 508 KB |
08.txt | AC | 2 ms | 508 KB |
09.txt | AC | 2 ms | 508 KB |
10.txt | AC | 2 ms | 508 KB |
11.txt | AC | 2 ms | 508 KB |
13.txt | AC | 2 ms | 508 KB |
15.txt | AC | 2 ms | 508 KB |
s1.txt | AC | 2 ms | 380 KB |
s2.txt | AC | 2 ms | 380 KB |
s3.txt | AC | 2 ms | 380 KB |
s4.txt | AC | 1 ms | 380 KB |