Submission #201120
Source Code Expand
{-# LANGUAGE BangPatterns #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} import Control.Applicative import Control.Arrow import Control.Monad import Data.Array.IO import Data.Array.Unboxed import qualified Data.ByteString.Char8 as C import Data.Char import qualified Data.Foldable as F import Data.Function import Data.Functor import Data.Int import qualified Data.IntMap as M import Data.IORef import Data.List import Data.Maybe import Data.Monoid import qualified Data.Sequence as Seq import qualified Data.Set as S import Data.Word import Debug.Trace import Text.Printf -- I/O readInts :: C.ByteString -> [Int] readInts = map fst . mapMaybe C.readInt . C.words getInts :: IO [Int] getInts = readInts <$> C.getLine readNums :: Num a => C.ByteString -> [a] readNums = map (fromIntegral . fst) . mapMaybe C.readInteger . C.words getNums :: Num a => IO [a] getNums = readNums <$> C.getLine cast :: (Integral a, Num b) => a -> b cast = fromIntegral ----- main :: IO () main = do [a, b] <- getInts putStrLn $ show b ++ " " ++ show a
Submission Info
Submission Time | |
---|---|
Task | A - スワップ |
User | tanakh |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 1329 Byte |
Status | AC |
Exec Time | 28 ms |
Memory | 1192 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | test_13_69.txt, test_16_44.txt, test_40_40.txt, test_49_31.txt, test_51_74.txt, test_83_60.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 24 ms | 1176 KB |
sample_02.txt | AC | 28 ms | 1108 KB |
test_13_69.txt | AC | 28 ms | 1128 KB |
test_16_44.txt | AC | 26 ms | 1192 KB |
test_40_40.txt | AC | 27 ms | 1172 KB |
test_49_31.txt | AC | 26 ms | 1112 KB |
test_51_74.txt | AC | 24 ms | 1180 KB |
test_83_60.txt | AC | 26 ms | 1124 KB |