- Beginners - Haskell.org

Re: [Haskell-beginners] Is there a function to determine if a date isa business day?
by Gaius Hammond 11 Dec '09

11 Dec '09

You can buy this data from companies like Reuters. They collate it by having someone phone every embassy every year. Cheers, G ------Original Message------ From: Deniz Dogan Sender: beginners-bounces(a)haskell.org To: Hong Yang Cc: beginners(a)haskell.org Subject: Re: [Haskell-beginners] Is there a function to determine if a date isa business day? Sent: 11 Dec 2009 09:35 2009/12/11 Hong Yang <hyangfji(a)gmail.com>: > > > _______________________________________________ > Beginners mailing list > Beginners(a)haskell.org > http://www.haskell.org/mailman/listinfo/beginners > > I don't know, but wouldn't it be nice if there was some package dealing with "cultures"? Something along the lines of: data Culture = Culture { country :: Country, language :: Language, isHoliday :: (Day -> Bool), firstDayOfWeek :: Day, ... } -- Deniz Dogan _______________________________________________ Beginners mailing list Beginners(a)haskell.org http://www.haskell.org/mailman/listinfo/beginners ------------------

2 1

Is there a function to determine if a date is a business day?
by Hong Yang 11 Dec '09

11 Dec '09

4 3

text file to data type
by Brent Pedersen 09 Dec '09

09 Dec '09

hi, i have files with lots (millions of rows) of data like this: chr6 chr10 96.96 3392 101 2 79030508 79033899 4160024 4163413 0.0 5894 chr6 chr10 93.19 4098 228 13 117152751 117156826 11355389 11359457 0.0 5886 chr6 chr10 95.82 3445 130 5 112422073 112425513 7785396 7788830 0.0 5666 and i'd like to read it into a type like this: data Blast = Blast { query :: S.ByteString , subject :: S.ByteString , hitlen :: Int , mismatch :: Int , gaps :: Int , qstart :: Int , qstop :: Int , sstart :: Int , sstop :: Int , pctid :: Double , evalue :: Double , bitscore :: Double } deriving (Show) where each of those fields corresponds to a column in the file. in python, i do something like: >>> line = [fn(col) for fn, col in zip([str, str, int, int, int, int, int, int, int, float, float], sline.split("\t")] what's a fast, simple way to do this in haskell? is it something like: instance Read Blast where readsPrec s = ????? any pointers on where to look for simple examples of this type of parsing would be much appreciated. thanks, -brentp

4 4

using the current time
by Torsten Otto 08 Dec '09

08 Dec '09

Hi! We are trying to build a chatbot that can among many other things tell the partner what the current time is. Now obviously current time and pure functional programming don't mix well, but Haskell CAN do it. We have played around with it for a while and have figured out quite a bit, but the final icing is missing on the cake. It would be cool to have a dictionary like so > wissen = [ Einfache Begrüßung -> Frage nach dem Wohlbefinden > (["hallo", "hi", "hey"], "Hi, wie geht's?"), > (["guten tag", "tag"], "Wie geht es dir?")] (yes, the bot speaks German!) that could include a line like > (["Uhr","Zeit","spät"], time) where time is a function evaluating to a String including the current time. Once we have the time, we can get it translated into German by > formatiereZeit :: ClockTime -> String > formatiereZeit t > | (head(words (calendarTimeToString (toUTCTime t))) == "Mon") = "Montag" > | (head(words (calendarTimeToString (toUTCTime t))) == "Tue") = "Dienstag" > | (head(words (calendarTimeToString (toUTCTime t))) == "Wed") = "Mittwoch" > | (head(words (calendarTimeToString (toUTCTime t))) == "Thu") = "Donnerstag" > | (head(words (calendarTimeToString (toUTCTime t))) == "Fri") = "Freitag" > | (head(words (calendarTimeToString (toUTCTime t))) == "Sat") = "Samstag" > | (head(words (calendarTimeToString (toUTCTime t))) == "Sun") = "Sonntag" > | otherwise ="keine Uhr heute" which results in a string. Now how do we access the system time in a useful way? > time = formatiereZeit (NOW WHAT?) Would the current time step out of the IO monad, please? Regards, Torsten

3 2

recursively building lists
by Torsten Otto 08 Dec '09

08 Dec '09

Hi! While trying to implement "words", we ran into the question of how to build lists of lists. The trouble boils down to this: test = []:[] is no problem, just as Prelude> []:[]:[]:[] [[],[],[]] works fine. Now trying to put the two together _is_ a problem: testlist 1 = []:[] testlist n = []:(testlist n-1) No instance for (Num [[a]]) arising from a use of `testlist' at <interactive>:1:0-9 Possible fix: add an instance declaration for (Num [[a]]) In the expression: testlist 2 In the definition of `it': it = testlist 2 Can someone please explain, what is going on here? Regards, Torsten

3 4

Keyboard input
by legajid 07 Dec '09

07 Dec '09

Hello, in order to get familiar with keyboard data entry, i'm writing a program for the well-known Hangman game. Each entry must change several lists (letters found and remaining letters). I have three main difficulties with data entry : First When i enter a letter (A) , i get a good response (displaying old word and letters, message "guess ok") and an unattended one that says "guess false", thus displaying the result from my entry. I don't understand why the process seems to execute twice, the fisrt one being correct, the second not. Second difficulty : the "procedure" for data entry is written twice ("guess a letter ..." prompt). I think it would be a good idea to write it once as a "function" that would display the prompt then get a character from the keyboard. Third difficulty : in both cases (guess ok or false), i have to ask for a new entry; to avoid writing this twice again, i write it before the recursive calls of process_guess. Writing a function would perhaps allow to call it directly as a parameter of process_guess ? Being new to haskell, recursive functions now seem clear to me but i feel that IOs make writing a program more difficult. And i've not yet tried data base access... Please, say me if the way i wrote my program is a good or bad approach. Below an example of a run : Here's my program. Could you help me. Thanks, Didier solution="HANGMAN" word="H-----N" letters=['A'..'Z'] hangman = do -- enter a letter putStrLn "Guess a letter (9 to end):" guess <- getChar -- process process_guess guess letters word process_guess pg pletters pword =do let pguess = toUpper pg putStrLn pword putStrLn pletters if pguess == '9' then do putStrLn "Done" else do if pguess `elem` pletters then do putStrLn "Guess OK \n" else do putStrLn "Guess false \n" -- Enter a new letter before going on, in both cases putStrLn "Guess a letter (9 to end):" guess <- getChar if pguess `elem` pletters -- guess ok -> remove guess from available letters then add guess to word then do process_guess guess (newletters pletters pguess) (newword pword pguess solution) -- guess false -> remove guess from available letters, leave word unchanged else do process_guess guess (newletters pletters pguess) pword newletters l g = filter (/= g) l newword [] _ _ = [] newword (w:ws) g (s:ss) = if w == '-' then if s == g then g : newword ws g ss else w : newword ws g ss else w : newword ws g ss toUpper c | isLower c = toEnum (fromEnum c - fromEnum 'a' + fromEnum 'A') | otherwise = c isLower c = c >= 'a' && c <= 'z'

2 3

freelancing jobs in haskell
by Vinod Parthasarathy 06 Dec '09

06 Dec '09

Hi, I recently learnt Haskell as part of my post graduate course work in Computer Science. I am looking for freelancing websites which offer online jobs in Haskell. If any of you know any such website where I could look for freelancing jobs, could you please let me know? I am from India, and am also looking for jobs in India in Haskell programming. Any help in that direction would also be helpful. Vinod.

1 0

Re: [Haskell-beginners] Indenting
by Brent Yorgey 05 Dec '09

05 Dec '09

On Sat, Dec 05, 2009 at 05:58:25PM +0000, John Moore wrote: > Hi Brent, > Sorry about the confusion below is the whole program, which may help or not? > What i want to do is when the program prints out the answers , I would like > it to be able to automatically by use of a function indent the answers > depending how far down the answer goes. OK, I think I understand what you want to do, although I'm not exactly clear on how you want the indentation to work. Anyway, I've interspersed my comments in the code below. > import Maybe Just FYI, "Maybe" is the old Haskell-98 name for the module, but nowadays the standard name is "Data.Maybe". > data Expression = Val Float > | Add Expression Expression > | Subtract Expression Expression > | Multiply Expression Expression > | Divide Expression Expression > | Let String Expression Expression > | Var String > deriving Show > type Dict =[(String,Expression)] > emptyDict :: Dict > emptyDict = [] > addEntry :: String->Expression ->Dict -> Dict > addEntry n e d = (n,e): d > lookupEntry :: String -> Dict -> Maybe Expression > lookupEntry n [] = Nothing > lookupEntry n (x:xs) = if (n == k) > then (Just v) > else lookupEntry n xs > where (k,v) = x I would write lookupEntry as follows: lookupEntry _ [] = Nothing lookupEntry n ((k,v):xs) | n == k = Just v | otherwise = lookupEntry n xs Note that you can do a nested pattern match ((k,v):xs), and the use of guards instead of if...then...else. But actually, lookupEntry is already in the standard Prelude, it is called 'lookup'! So no need to reimplement it yourself. > evalIO :: Dict -> Expression -> IO Float This function is rather poor Haskell style, because it mixes up two separate things: evaluating the expression, and printing the result. Instead, I would do something like this: eval :: Dict -> Expression -> ([String], Double) where the output is the result paired with a "trace". (Note I have used Double, a double-precision floating point number, instead of Float, which is single-precision; there's usually very little reason to use Float instead of Double.) Given eval, you can recover evalIO as follows: evalIO :: Dict -> Expression -> IO Double evalIO d e = do let (trace, result) = eval d e mapM_ putStrLn trace return result But this is a lot nicer because it cleanly separates the evaluation from the IO, and you can now do anything you like with the trace --- print it to a file, process it further, etc; you are not tied down to printing it on the screen. Now, if you just want the indentation to increase at each step, like so xxxxx xxxxx xxxxx xxxxx xxxxx ... then you can also separate this out: just return a trace with no indentation, and then apply a function to the trace to indent successive lines, something like zipWith (++) (map (flip replicate ' ') [0..]) trace If, on the other hand, you want the indentation to correspond to how "deep" within the expression the evaluation is taking place, then you can recursively pass along an extra parameter to your evaluation function, like so: eval :: Dict -> Expression -> ([String], Double) eval d e = evalIndented 0 d e where evalIndented i d (Val x) = ([], x) evalIndented i d (Add x y) = let (tx, vx) = evalIndented (i+1) d x (ty, vy) = evalIndented (i+1) d y in (replicate i ' ' ++ "Add " ++ show vx ++ " and " ++ show vy, vx + vy) ...and so on. I hope this is helpful! -Brent

2 1

Indenting
by John Moore 05 Dec '09

05 Dec '09

Hi, I'm a bit stuck. I want to indent my answer by using a count function to indent my answer. Say for example I want to show the levels in a simple arithmethic expression. like 3*(4+5) I want to be able to print out : 4+5 = 9 3*9 = 27 (notice the indentation as I go through an expression. I tried this but it a mess, I tried to use prettyprint but this seemed very complicated. Any suggestions greatly appreciated type Indent = (Int) spacing :: Int -> Indent spacing n = Nothing spacing n (x:xs) = if (n==1) then (Just n) else spacing n xs where (n > 1) John

3 2

"reusable" data in Haskell
by John Velman 04 Dec '09

04 Dec '09

In prolog, one can create a database of facts and predicates, which, depending on the prolog (AFAIK) can be 'compiled' and loaded quickly. How does one do something comparable in Haskell? I guess I have in mind something like a function that accesses the data with a key. And ideally, the data should itself be able to contain functions. I know there is a hash table library, and interfaces to databases like postgresql. If using hash table, is there a way to 'pickle' the hash table, and unpickle it? I'd be happy to have some pointers to someplace that this has been done (or some documentation on how to do it. Thanks, John Velman

2 2