12 lines
205 B
Haskell
12 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
|