Submission #186826
Source Code Expand
{-# LANGUAGE MultiParamTypeClasses,FlexibleContexts,FlexibleInstances,TypeSynonymInstances,BangPatterns,RankNTypes,TupleSections #-}
import Control.Monad
import Control.Monad.ST
import Control.Applicative
import Control.Arrow
import Debug.Trace
import Text.Printf
import Data.List
import Data.Int
import Data.Bits
import Data.Maybe
import Data.Array.Unboxed
import Data.Array.ST
import qualified Data.Map as M
import qualified Data.Set as S
import qualified Data.ByteString.Char8 as B
readInt = fromJust . fmap fst . B.readInt
readInts = map readInt . B.words <$> B.getLine
readIntPair = l2p . map readInt . take 2 . B.words <$> B.getLine
readLns :: Read a => IO [a]
readLns = map read . words <$> getLine
cmpFst (a,_) (b,_) = compare a b
cmpSnd (_,a) (_,b) = compare a b
cmpLen a b = length a `compare` length b
swap (a,b) = (b,a)
l2p (a:b:_) = (a,b)
p2l (a,b) = [a,b]
itof :: Int -> Double
itof = fromIntegral
defaultArray :: (IArray a e,Ix i) => e -> (i,i) -> [(i,e)] -> a i e
defaultArray = accumArray $ curry snd
flatten :: [(a,[(b,c)])] -> [((a,b),c)]
flatten = (=<<) $ uncurry $ fmap . first . (,)
stepM_ :: Monad m => a -> (a -> Bool) -> (a -> a) -> (a -> m ()) -> m ()
stepM_ i judge incr step = sub i
where
sub i | judge i = step i >> sub (incr i) | otherwise = return ()
inf = maxBound `div` 2 :: Int
main = do
x <- readLn :: IO Int
print $x `mod` 12 +1
Submission Info
Submission Time |
|
Task |
A - 来月は何月? |
User |
autotaker |
Language |
Haskell (GHC 7.4.1) |
Score |
100 |
Code Size |
1429 Byte |
Status |
AC |
Exec Time |
41 ms |
Memory |
1452 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 |
41 ms |
1372 KB |
test_10.txt |
AC |
29 ms |
1304 KB |
test_11.txt |
AC |
28 ms |
1304 KB |
test_12.txt |
AC |
27 ms |
1304 KB |
test_2.txt |
AC |
29 ms |
1312 KB |
test_3.txt |
AC |
27 ms |
1308 KB |
test_4.txt |
AC |
28 ms |
1444 KB |
test_5.txt |
AC |
28 ms |
1452 KB |
test_6.txt |
AC |
28 ms |
1432 KB |
test_7.txt |
AC |
26 ms |
1436 KB |
test_8.txt |
AC |
27 ms |
1432 KB |
test_9.txt |
AC |
27 ms |
1376 KB |