Submission #186824
Source Code Expand
import Data.List import Data.Char import Data.Maybe import Data.Tuple import Debug.Trace import Data.Array import Data.Array.IO import Control.Monad import Control.Applicative import Control.Arrow import qualified Data.ByteString.Char8 as B import qualified Data.Map as M import Text.Printf getInts :: IO [Int] getInts = map read . words <$> getLine (|>) x f = f x; infixl 1 |> debug x = trace ("# " ++ show x) x main :: IO () main = do [n] <- getInts let k = if n == 12 then 1 else n+1 putStrLn $ show k
Submission Info
Submission Time | |
---|---|
Task | A - 来月は何月? |
User | cympfh |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 541 Byte |
Status | AC |
Exec Time | 231 ms |
Memory | 1440 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | test_1.txt, test_10.txt, test_11.txt, test_12.txt, test_2.txt, test_3.txt, test_4.txt, test_5.txt, test_6.txt, test_7.txt, test_8.txt, test_9.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
test_1.txt | AC | 231 ms | 1308 KB |
test_10.txt | AC | 28 ms | 1312 KB |
test_11.txt | AC | 28 ms | 1440 KB |
test_12.txt | AC | 29 ms | 1392 KB |
test_2.txt | AC | 28 ms | 1300 KB |
test_3.txt | AC | 28 ms | 1312 KB |
test_4.txt | AC | 29 ms | 1312 KB |
test_5.txt | AC | 27 ms | 1308 KB |
test_6.txt | AC | 28 ms | 1308 KB |
test_7.txt | AC | 28 ms | 1304 KB |
test_8.txt | AC | 28 ms | 1304 KB |
test_9.txt | AC | 31 ms | 1372 KB |