- Beginners - Haskell.org

Array update and `seq`
by Chul-Woong Yang 27 Apr '16

27 Apr '16

Hi, all When I fold a list to update Data.Array, memory usage is very high. Consider following source, which counts occurence of each element in a list (1): import Data.Array import Data.List import Control.DeepSeq go :: [Int] -> [Int] go = elems . foldl' update (array (0,99) [(i,0) | i <- [0..99]]) where update acc x = acc // [(x, acc ! x + 1)] main = putStrLn . unwords . map show . go . concat . replicate 5000 $ [0..99] Above program uses about 350MB at heap. Memory usage is same if I try to force strictness in array update with `seq` (2) : where update acc x = let v = acc ! x + 1 a' = acc // [(x,v `seq` v)] in a' `seq` a' However, when I use `deepseq`, memory usage is gone (around 35Kbyte) (3): where update acc x = let v = acc ! x + 1 a' = acc // [(x,v `seq` v)] in a' `deepseq` a' What's the missing part in (2)? At (2), evaluation of updated array a' is forced and the value of array cell is also evaluated forcefully with `seq`. Any help would be appreciated deeply. -- Regards, Chul-Woong Yang

2 3

approximate string search
by Mason Lai 27 Apr '16

27 Apr '16

Hi, I'm writing a Haskell program which is looking for whether or not a string (needle) exists within a larger string (haystack) given a Levenshtein distance. Note that it shouldn't calculate the Levenshtein distance between the needle and haystack. For example, needle: AAA haystack: TTTTTAATTTTT The needle would be "found" if the Levenshtein distance is set at 1, because dist("AAT", "AAA") == 1. The following almost works: distance(needle, haystack) - (len(haystack) - len(needle)) But it does not handle deletions correctly. I've previously written a program which does this approximate search in Java with the Wu-Manber extension of the Bitap, or shift-or, algorithm. The same strategy seems difficult to code up in Haskell because it's very "stateful" and involves a lot of bit-fiddling. (Maybe it's actually quite simple, but I'm not sure how I would go about doing this.) As a further complication, I'd prefer to keep the data packed as ByteStrings, as I'll be dealing with around 200 GiBs of data (split and parallelized over a cluster, but still a lot). I don't really know how to deal with ByteStrings without using the functions that come along in the ByteString module or unpacking the ByteString. I've been using the language-spelling package, which has a module which can calculate the Levenshtein distance between two ByteStrings. I see that it uses ListLike. I'm not really sure how it works, but I assume it makes ByteString an instance of ListLike, and then you have access to all of the ListLike methods? Does anyone have any advice on how I should proceed with this? I don't mind learning new things, but I don't really know what the best strategy is or where to look. -- Mason

2 1

Feedback on Maybe+State+IO code
by shane pearman 27 Apr '16

27 Apr '16

I just read the M.P. Jones paper on the topic of monad transformers and have been playing a bit with some simple examples combining `Maybe` and `State` with `IO`: http://lpaste.net/6702944292505124864 I have the same "stuff" function defined 3 ways: two recursive methods, one of which takes the "maybe" function as an argument which is used to break the recursion, and a non-recursive method which is 'looped' using `iterateM_`. The functionality is that an integer is given as initial `State` and it is decremented until 0 is reached, printing each iteration and breaking by the result of the "maybe" function. I also wanted to ensure that no negative integer could enter into the `State` so the same "maybe" function is used in main to restrict entry into the "stuff" function, either using `for_` over the result or injecting the `Maybe` before the "stuff" function. The iterative calls are a little bit harder to read but the second (2) recursive call is fairly concise and readable. Basically I'm just looking for any suggestions if anything looks out of place or can be refined before I go on to do more involved error handling or logging. * There are also a couple helper functions at the bottom below "main" that I ended up not using but was wondering if they are defined somewhere.

1 0

'No such file' - ghc Parsec Package Error
by Oliver Dean 26 Apr '16

26 Apr '16

Hello All, Silly question, I cannot seem to compile an additional .hs file using the –package parsec –o command… It has to be something to do with my directory locations no doubt. I’ve tried numerous attempts and still no luck. I have a program called simple_parser which was compiled using the ‘parser.hs' file. Now I wish to run and compile with the parsec package using the file ‘parsec.hs’… Both my .hs files are located in the same folder: 8afbc4c1:HS_Parser homefolder$ ls parsec.hs parser.hi parser.hs parser.o simple_parser Then when I try the following (and I have tried many different path routes ../../ and vice versa), I get the following: 8afbc4c1:HS_Parser homefolder$ ghc -package parsec -o simple_parser [..parsec.hs parsec.hs] <no location info>: can't find file: [..parsec.hs Sorry to be such a newbie! Any helpful direction would be greatly appreciated. Not sure if I am doing something wrong or my code is…? PS - Both .hs files have slightly differing lines of code (based on the Wiki Book Scheme -> Haskell tutorial).

3 3

Re: [Haskell-beginners] Handling failed output
by Imants Cekusins 25 Apr '16

25 Apr '16

Hello Matt, Either Int (Int,Int) might work. Left ... by convention indicates 'other' result.

2 1

cabal install zlib failing
by John Ky 25 Apr '16

25 Apr '16

Hello Haskellers, Does anyone know what to do in this situation? cabal install zlib Resolving dependencies... Notice: installing into a sandbox located at /home/ubuntu/hw-files/.cabal-sandbox/7.10.3 Downloading zlib-0.6.1.1... Configuring zlib-0.6.1.1... Failed to install zlib-0.6.1.1 Build log ( /home/ubuntu/hw-files/.cabal-sandbox/7.10.3/logs/zlib-0.6.1.1.log ): Configuring zlib-0.6.1.1... setup-Simple-Cabal-1.22.5.0-x86_64-linux-ghc-7.10.3: Missing dependency on a foreign library: * Missing (or bad) header file: zlib.h * Missing C library: z This problem can usually be solved by installing the system package that provides this library (you may need the "-dev" version). If the library is already installed but in a non-standard location then you can use the flags --extra-include-dirs= and --extra-lib-dirs= to specify where it is. If the header file does exist, it may contain errors that are caught by the C compiler at the preprocessing stage. In this case you can re-run configure with the verbosity flag -v3 to see the error messages. cabal: Error: some packages failed to install: zlib-0.6.1.1 failed during the configure step. The exception was: ExitFailure 1 This is what I have in my environment: ubuntu@box1179:~/hw-files$ dpkg -l | grep zlib ii zlib1g 1:1.2.3.4.dfsg-3ubuntu4 compression library - runtime ii zlib1g:i386 1:1.2.3.4.dfsg-3ubuntu4 compression library - runtime iU zlib1g-dev 1:1.2.8.dfsg-1ubuntu1 compression library - development And this: ubuntu@box1179:~/hw-files$ nix-env -q cabal-install-1.22.9.0 ghc-7.10.3 nix-1.11.2 zlib-1.2.8 Cheers, -John

1 1

Help refactor monster function
by Dániel Arató 24 Apr '16

24 Apr '16

Hi guys, Here is my solution to Problem 50 from Ninety-Nine Haskell Problems: https://github.com/nilthehuman/H-99/blob/master/Logic.hs#L75 (`consume' is defined here: https://github.com/nilthehuman/H-99/blob/master/Lists.hs#L107 ) I'm not satisfied with the code quality. I feel like especially `go', `group' and `min2' should be more succint and readable. How to refactor? Maybe there are some combinators that could help? Thanks, Daniel

3 3

Handling failed output
by Matt Williams 23 Apr '16

23 Apr '16

Dear All, I am trying to work out how to handle a function that might return different types of output. I assume I need to use either Maybe or Either, but I can't quite get it to work. At the moment, I have some function: checkNum3 :: Int -> Int -> (Int,Int) checkNum3 a b = if check a b then (a,b) else (a,-1) checkLists :: [Int] -> Int -> [(Int,Int)] checkLists a b = map (checkNum3 b) a checkAll3 :: [Int] -> [Int] -> [(Int,Int)] checkAll3 a b = concat (map (checkLists a) b) However, I know that checkNum3 isn't a good function - it uses setting the second element of the tuple to -1 to signal failure, which is obviously a recipe for problems later on. However, I want to return either a pair of integers, or a single integer. Any advice would be appreciated. Thanks, Matt

1 0

Applying a function to two lists
by Matt Williams 23 Apr '16

23 Apr '16

Dear List, I am stuck. I have a function that needs to apply each item of one list to every element of the second list in turn. So far, I have this function: checkNum :: Int -> [Int] -> (Int,[Int]) checkNum a b = (a,filter (check a) $ b) which implements what I need, but I now need to apply it to every element of the first list. I am looking for something like: list1 = [1,2,3,4,5,6] list2 = [1,2,3,4,5,6] map checkNum list1 list2 to return: [(1,[1]),(2[3,4,5]),(6,[3]) (I have tried to simplify this a little, so my apologies if it looks pointless - the real function is useful) Any help would be appreciated. Matt

2 3

i have questions about Haskell
by Eunsu Kim 23 Apr '16

23 Apr '16

Hi when outputting the polynomial value, actually write out the polynomial, but: - skipping any missing monomials - not including any extraneous signs -not showing the constant term for the above example, the final line would be: The value of 1.0 x^3 - 2.0 x^2 + 10.0 evaluated at -1.0 is 7.0 how can I do this??? i have no idea now…. here is my code: evalpoly = do putStr "What is the degree of polynomial: " degree <- getLine coeffs <- (funcOfCoeff ((read degree::Int)+1) [] ) putStr "What value do you want to evaluate at: " value <- getLine putStr "The value of the polynomial is: " putStrLn (show (getResult (coeffs) (read value :: Float) )) --function loop to get coefficient-- funcOfCoeff 0 coeffs = do --to check the degree of 0 return coeffs --return list of coefficient funcOfCoeff degree coeffs = do putStr ("What is the x^" ++ show(degree-1)) putStr " coefficient: " coeff <- getLine loop <- funcOfCoeff (degree-1) ((read coeff :: Float) : coeffs) return loop getResult (coeffs) x = sum(map(\(a,b) -> a*x^b).zip coeffs.iterate (+1)$0) this is my output so far: > evalpoly What is the degree of the polynomial: 3 What is the x^3 coefficient: 1.0 What is the x^2 coefficient: - 2.0 What is the x^1 coefficient: 0 What is the x^0 coefficient: 10.0 What value do you want to evaluate at: -1.0 The value of the polynomial is 7.0

2 1