
21 Aug
2008
21 Aug
'08
12:08 a.m.
2008/8/20 Yitzchak Gale
Here's how you could write your main function:
main = do putStr "Enter a list: " lst <- getLine print $ median $ read lst
Another possibility would be a space delimited number list, easier for your users to remember :
parseWordList :: (Read a) => String -> [a] parseWordList str = map read . unwords $ str
main = do putStrLn "Enter a list of integers : " line <- getLine print . median . parseWordList $ line
-- Jedaï