Submission #432393
Source Code Expand
{-# LANGUAGE CPP #-} {-# LANGUAGE ScopedTypeVariables #-} import Control.Arrow import Control.Applicative import Control.Monad import Control.Monad.State import Control.Monad.List import Data.List import Data.Maybe import qualified Data.Set as Set import qualified Data.Map as Map import qualified Data.Vector.Unboxed as U import qualified Data.Vector.Unboxed.Mutable as UM import System.IO import Debug.Trace readInt :: String -> Int readInt = read readInts :: String -> [Int] readInts = map readInt . concatMap words . lines readIntsN :: Int -> String -> [Int] readIntsN n s | length ns == n = ns | otherwise = error $ "expecting " ++ show n ++ "integers but got " ++ show (length ns) where ns = readInts s getInt = readInt <$> getLine getInts = readInts <$> getLine getIntsN n = readIntsN n <$> getLine getInt2 = getIntsN 2 >>= \[a,b] -> return (a,b) getInt3 = getIntsN 3 >>= \[a,b,c] -> return (a,b,c) getInt4 = getIntsN 4 >>= \[a,b,c,d] -> return (a,b,c,d) getInt5 = getIntsN 5 >>= \[a,b,c,d,e] -> return (a,b,c,d,e) main = do s <- getLine n <- getInt putStrLn $ [a:b:[] | a <- s, b <- s] !! (n-1)
Submission Info
Submission Time | |
---|---|
Task | A - 25個の文字列 |
User | kielnow |
Language | Haskell (Haskell Platform 2014.2.0.0) |
Score | 100 |
Code Size | 1172 Byte |
Status | AC |
Exec Time | 629 ms |
Memory | 1432 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample-01.txt, sample-02.txt, sample-03.txt |
All | test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt, test-21.txt, test-22.txt, test-23.txt, test-24.txt, test-25.txt, test-26.txt, test-27.txt, test-28.txt, test-29.txt, test-30.txt, sample-01.txt, sample-02.txt, sample-03.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample-01.txt | AC | 629 ms | 1300 KB |
sample-02.txt | AC | 27 ms | 1308 KB |
sample-03.txt | AC | 26 ms | 1392 KB |
test-01.txt | AC | 28 ms | 1400 KB |
test-02.txt | AC | 27 ms | 1312 KB |
test-03.txt | AC | 26 ms | 1388 KB |
test-04.txt | AC | 27 ms | 1312 KB |
test-05.txt | AC | 27 ms | 1304 KB |
test-06.txt | AC | 28 ms | 1392 KB |
test-07.txt | AC | 27 ms | 1396 KB |
test-08.txt | AC | 28 ms | 1388 KB |
test-09.txt | AC | 28 ms | 1392 KB |
test-10.txt | AC | 26 ms | 1392 KB |
test-11.txt | AC | 27 ms | 1380 KB |
test-12.txt | AC | 27 ms | 1396 KB |
test-13.txt | AC | 25 ms | 1304 KB |
test-14.txt | AC | 26 ms | 1308 KB |
test-15.txt | AC | 27 ms | 1396 KB |
test-16.txt | AC | 27 ms | 1300 KB |
test-17.txt | AC | 27 ms | 1388 KB |
test-18.txt | AC | 26 ms | 1376 KB |
test-19.txt | AC | 25 ms | 1308 KB |
test-20.txt | AC | 27 ms | 1396 KB |
test-21.txt | AC | 26 ms | 1432 KB |
test-22.txt | AC | 26 ms | 1424 KB |
test-23.txt | AC | 26 ms | 1424 KB |
test-24.txt | AC | 27 ms | 1380 KB |
test-25.txt | AC | 27 ms | 1396 KB |
test-26.txt | AC | 28 ms | 1392 KB |
test-27.txt | AC | 28 ms | 1396 KB |
test-28.txt | AC | 27 ms | 1304 KB |
test-29.txt | AC | 26 ms | 1392 KB |
test-30.txt | AC | 27 ms | 1388 KB |