Revision as of 03:07, 31 January 2007 by DonStewart
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.