BTW, "\n -> show n" is equivalent to "show" .
On Monday Jun 7, 2010, at 8:37 PM, zaxis wrote:
>> Yes, and i can use appendFile too.
>>
>> appendFile "ssqHitNum.txt" $ unwords $ [no] ++ map (\n -> show n) hitNum
>> ++ ["\n"]
>
___
Haskell-Cafe mailing
Bill Atkins-6 wrote:
>
> readFile reads the file lazily so it isn't closed until the entire
> contents have been consumed.
>
> Try System.IO.Strict.readFile, which will read the entire file at once.
> Yes, and i can use appendFile too.
>
> appendFile "ssqHitNum.txt" $ unwords $ [no] ++ map (
readFile reads the file lazily so it isn't closed until the entire contents
have been consumed.
Try System.IO.Strict.readFile, which will read the entire file at once.
zaxis writes:
> hitSSQ :: String -> [Int] -> IO ()
> hitSSQ no hitNum = do
>let newNum = unwords $ [no] ++ map (\n -> show
zaxis writes:
> hitSSQ :: String -> [Int] -> IO ()
> hitSSQ no hitNum = do
> let newNum = unwords $ [no] ++ map (\n -> show n) hitNum
> hitNums <- fmap lines $ readFile "test.txt"
> writeFile "test.txt" $ unlines $ hitNums ++ [newNum]
>
> *** Exception: test.txt: openFile: resource bu
hitSSQ :: String -> [Int] -> IO ()
hitSSQ no hitNum = do
let newNum = unwords $ [no] ++ map (\n -> show n) hitNum
hitNums <- fmap lines $ readFile "test.txt"
writeFile "test.txt" $ unlines $ hitNums ++ [newNum]
*** Exception: test.txt: openFile: resource busy (file is locked)
Sincer