Submission #186919
Source Code Expand
{-# LANGUAGE BangPatterns #-} import Control.Applicative import Control.Monad import Control.Arrow import Data.List import Data.Maybe import Data.Char import Text.Printf readInt = ( readLn :: IO Int ) getInts = map ( read :: String -> Int ) . words <$> getLine which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = readInt >>= print . ( `mod` 12 ) . succ
Submission Info
Submission Time | |
---|---|
Task | A - 来月は何月? |
User | torus711 |
Language | Haskell (GHC 7.4.1) |
Score | 0 |
Code Size | 385 Byte |
Status | WA |
Exec Time | 205 ms |
Memory | 1480 KB |
Judge Result
Set Name | All | ||||
---|---|---|---|---|---|
Score / Max Score | 0 / 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 | 205 ms | 1360 KB |
test_10.txt | AC | 26 ms | 1312 KB |
test_11.txt | WA | 26 ms | 1428 KB |
test_12.txt | AC | 26 ms | 1308 KB |
test_2.txt | AC | 26 ms | 1480 KB |
test_3.txt | AC | 26 ms | 1308 KB |
test_4.txt | AC | 26 ms | 1312 KB |
test_5.txt | AC | 27 ms | 1436 KB |
test_6.txt | AC | 26 ms | 1304 KB |
test_7.txt | AC | 26 ms | 1308 KB |
test_8.txt | AC | 26 ms | 1436 KB |
test_9.txt | AC | 26 ms | 1308 KB |