11 lines
205 B
Haskell
11 lines
205 B
Haskell
import System.IO
|
|
|
|
readLines :: Handle -> IO [String]
|
|
readLines h = do
|
|
s <- hGetContents h
|
|
return $ lines s
|
|
|
|
readWords :: Handle -> IO [String]
|
|
readWords h = do
|
|
s <- hGetContents h
|
|
return $ words s
|