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
AC × 3
AC × 33
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