ListSort.hs

import qualified Data.ByteString.Char8 as B
import Data.Maybe
import Control.DeepSeq
import Data.Time
import Control.Exception(evaluate)
import System.IO
import Text.Printf
import Prelude hiding(log)
import Data.List(sort)

log :: String -> IO UTCTime
log xs = do
    t <- getCurrentTime
    hPrintf stderr "[%s] %s\n" (show t) xs
    return t

main :: IO ()
main = do 
    t0 <- log "begin"
    xs <- map (fst . fromJust . B.readInt) . B.words <$> B.getContents
    evaluate (rnf xs)
    t1 <- log "parse done"
    let ls = sort xs
    evaluate (rnf ls)
    t2 <- log "sort done"
    let dt = diffUTCTime t2 t1
    _ <- log $ printf "Sorting: %s" (show dt)
    putStr $ unlines $ map show ls
    t3 <- log "output done"
    _ <- log $ printf "Elapsed Time: %s" (show (diffUTCTime t3 t0))
    return ()