[Haskell on AIZU OJ] 0001-List of Top 3 Hills

原题链接
输入：若干行正整数
输出：前三大的正整数

import Data.Listimport Data.Charimport Data.Functorimport qualified Data.ByteString.Char8 as Bmain = do  xs <- getInts  putStr . unlines $ map show $ take 3 (reverse . sort $ xs)getInts :: IO[Int]getInts = unfoldr (B.readInt . B.dropWhile isSpace) <$> B.getContents