Submission #202350
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 = do [ a, b ] <- getInts putStrLn $ show b ++ " " ++ show a
Submission Info
Submission Time | |
---|---|
Task | A - スワップ |
User | torus711 |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 407 Byte |
Status | AC |
Exec Time | 28 ms |
Memory | 1436 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 | 25 ms | 1300 KB |
sample_02.txt | AC | 28 ms | 1240 KB |
test_13_69.txt | AC | 25 ms | 1432 KB |
test_16_44.txt | AC | 27 ms | 1236 KB |
test_40_40.txt | AC | 27 ms | 1432 KB |
test_49_31.txt | AC | 26 ms | 1308 KB |
test_51_74.txt | AC | 26 ms | 1436 KB |
test_83_60.txt | AC | 25 ms | 1312 KB |