Submission #1694934
Source Code Expand
import qualified Data.ByteString.Char8 as BC import Data.Maybe (fromJust) import Control.Monad --import Data.Sequence import Prelude import System.IO import Data.List -- a <- replicateM n readLn -- mapM_ print $ main = do n <- readLn a <- replicateM n getLine putStrLn $ sort a!!0 ++ sort a!! 1 solve :: [String] -> String solve a = connect $ take 2 $ sort a connect :: [String] -> String connect (a:b) = a ++ (head b) -- リストに関数を適用する。map だと1変数関数しか使えない悲しみ。 --map' :: ([Int] -> Int -> Int -> Int) -> [Int] -> [Int] -> [Int] map' _ _ [] = [] map' f a (i:is) = f a i 0 : map' f a is -- t と等しい最初の要素の index を返す。あとで直す search :: [Int] -> Int -> Int -> Int search a t i = if a!!i == t then i else search a t (i + 1)
Submission Info
Submission Time | |
---|---|
Task | B - パスワード |
User | noy72 |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 859 Byte |
Status | WA |
Exec Time | 2 ms |
Memory | 764 KB |
Judge Result
Set Name | All | ||||
---|---|---|---|---|---|
Score / Max Score | 0 / 100 | ||||
Status |
|
Set Name | Test Cases |
---|---|
All | input_0.txt, input_1.txt, input_10.txt, input_11.txt, input_12.txt, input_13.txt, input_14.txt, input_15.txt, input_16.txt, input_17.txt, input_18.txt, input_19.txt, input_2.txt, input_20.txt, input_21.txt, input_22.txt, input_23.txt, input_3.txt, input_4.txt, input_5.txt, input_6.txt, input_7.txt, input_8.txt, input_9.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
input_0.txt | AC | 1 ms | 508 KB |
input_1.txt | AC | 1 ms | 508 KB |
input_10.txt | AC | 2 ms | 636 KB |
input_11.txt | AC | 1 ms | 508 KB |
input_12.txt | AC | 2 ms | 764 KB |
input_13.txt | AC | 1 ms | 508 KB |
input_14.txt | AC | 1 ms | 508 KB |
input_15.txt | AC | 1 ms | 508 KB |
input_16.txt | AC | 1 ms | 508 KB |
input_17.txt | AC | 2 ms | 764 KB |
input_18.txt | AC | 2 ms | 636 KB |
input_19.txt | AC | 2 ms | 636 KB |
input_2.txt | AC | 1 ms | 508 KB |
input_20.txt | AC | 1 ms | 508 KB |
input_21.txt | WA | 1 ms | 508 KB |
input_22.txt | AC | 1 ms | 508 KB |
input_23.txt | AC | 1 ms | 508 KB |
input_3.txt | AC | 1 ms | 508 KB |
input_4.txt | AC | 1 ms | 508 KB |
input_5.txt | AC | 1 ms | 508 KB |
input_6.txt | AC | 1 ms | 508 KB |
input_7.txt | AC | 1 ms | 508 KB |
input_8.txt | AC | 1 ms | 508 KB |
input_9.txt | WA | 1 ms | 508 KB |