Examples/Sort numbers

Categories: Code

Sort a list of numbers on stdin, display the sorted result to stdout.

import qualified Data.ByteString.Char8 as B
import Data.List
 
main = B.putStr . B.unlines . map (B.pack . show) . sort . unfoldr parse =<< B.getContents
 
parse !x | Just (n,y) <- B.readInt x = Just (n,B.tail y)
         | otherwise                 = Nothing

Should be pretty quick.

Recent content is available under a simple permissive license.