AtCoder Beginner Contest 025

Submission #432323

Source codeソースコード

import Data.List

main :: IO ()
main = do
  s <- getLine
  n <- readLn
  let dict = sort [ [a, b] | a <- s, b <- s ]
  putStrLn $ dict !! (n-1)
  return ()

Submission

Task問題 A - 25個の文字列
User nameユーザ名 tanakh
Created time投稿日時
Language言語 Haskell (Haskell Platform 2014.2.0.0)
Status状態 AC
Score得点 100
Source lengthソースコード長 165 Byte
File nameファイル名
Exec time実行時間 391 ms
Memory usageメモリ使用量 1432 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - sample-01.txt,sample-02.txt,sample-03.txt
All 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
sample-01.txt AC 391 ms 1368 KB
sample-02.txt AC 26 ms 1308 KB
sample-03.txt AC 26 ms 1308 KB
test-01.txt AC 28 ms 1304 KB
test-02.txt AC 26 ms 1316 KB
test-03.txt AC 28 ms 1308 KB
test-04.txt AC 28 ms 1424 KB
test-05.txt AC 27 ms 1428 KB
test-06.txt AC 28 ms 1320 KB
test-07.txt AC 27 ms 1304 KB
test-08.txt AC 30 ms 1424 KB
test-09.txt AC 28 ms 1304 KB
test-10.txt AC 28 ms 1240 KB
test-11.txt AC 27 ms 1304 KB
test-12.txt AC 28 ms 1316 KB
test-13.txt AC 26 ms 1320 KB
test-14.txt AC 28 ms 1236 KB
test-15.txt AC 27 ms 1316 KB
test-16.txt AC 27 ms 1432 KB
test-17.txt AC 27 ms 1304 KB
test-18.txt AC 28 ms 1244 KB
test-19.txt AC 29 ms 1300 KB
test-20.txt AC 28 ms 1424 KB
test-21.txt AC 28 ms 1304 KB
test-22.txt AC 29 ms 1332 KB
test-23.txt AC 25 ms 1428 KB
test-24.txt AC 26 ms 1428 KB
test-25.txt AC 27 ms 1428 KB
test-26.txt AC 25 ms 1420 KB
test-27.txt AC 25 ms 1308 KB
test-28.txt AC 26 ms 1304 KB
test-29.txt AC 27 ms 1312 KB
test-30.txt AC 27 ms 1312 KB