Problem:
問題 3

　入力ファイルの１行目に正整数 n （n≧3）が書いてあり，
つづく n 行に異なる正整数 a1, ..., an が
１つずつ書いてある．
a1, ..., an から異なる２個を選んで作られる
順列を（数として見て）小さい順に並べたとき，
３番目に来るものを出力せよ．

　ただし，
例えば，a1 = 1，a4 = 11 のような場合も，
a1a4 と a4a1 は異なる順列とみなす．
また，
1≦ai≦10000 (i=1, ..., n) かつ 3≦n≦104 である．

出力ファイルにおいては，
出力の最後にも改行コードを入れること．

入出力例

入力例１

3
2
7
5

出力例１

52

入力例２

4
17
888
1
71

出力例２

171

問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in Haskell (judge verdict: Accepted)

import Prelude             hiding (length)
import Control.Applicative ((<$>))
import Control.Monad       (replicateM)
import Data.List           (sort)
import Data.Vector.Unboxed (Vector(..), (!), fromList, length) 

main :: IO ()
main = do
  n <- readLn
  as <- replicateM n readLn
  print $ solve as

solve :: [Int] -> Int
solve = head . drop 2 . sort . comb . fromList . take 4 . sort

comb :: Vector Int -> [Int]
comb xs = [ (xs ! i) <++> (xs ! j) | i <- is, j <- is, i /= j ]
  where
    x <++> y = read (show x ++ show y)
    is = [0 .. (length xs - 1)]