August 2003 - Haskell-Cafe

.. Drowning in debt? We have the answer. fdps[]c.
by koxwhdsinsad＠msn.com 12 Aug '03

12 Aug '03

Hey There! Debt sucks, and so do the repayments.. feel like your getting ripped off? .. We tear up your debt and give you and your family a fresh start .. - Save you a lot of money by eliminating late fees - Settle your accounts for a substantially reduced amount - Stop creditors calling you on the phone - Avoid bankruptcy ... and more! Why keep dealing with the stress, and headaches? Combine your debt into a low interest repayment and get on with your life today!! Come here and take a look at how we can help. http://tops@www.slashmonthlypayments.com/index.php?N=g dont want any more? http://toas@www.slashmonthlypayments.com/r.php

1 0

Some humor
by Josef Svenningsson 11 Aug '03

11 Aug '03

Hi! All you people nourishing a dream of being part of the Haskell committee. Forget it. You might be taken for a serial killer. Check out: http://www.malevole.com/mv/misc/killerquiz/ :) /Josef

2 1

Editor in Linux for Hint/Helium
by Tim Stitt 11 Aug '03

11 Aug '03

Hi all, I'm using the Helium interpreter/compiler with the Hint interface within Linux. Unfortunately, I want an editor that allows me to jump to the row/column of the source when I receive an error. Does anyone know of a good editor in Linux to do this or the commands for Emacs etc. that can be used from within Hint to achieve it? Context works fine in Windows but I want something similar in Linux. There isn't much help from the Helium website. Thanks in advance, Tim Stitt

4 3

[newbie] UTF-8
by danon＠epita.fr 11 Aug '03

11 Aug '03

Hi, We try to make a program which write on stdout the UTF-8 character corresponding to an input unicode value. And this under MacOS X, Debian linux, and Windows. It seems to be easy, but we can't have found anything valuable, on the net. Would you mind to help us? Niko. Ps: excuse my poor english.

4 3

[Newbie] Streams and IO
by Christian Hofer 10 Aug '03

10 Aug '03

Hello, I am completely new to functional programming, am just reading through SOE (great book so far!) and try to understand streams in client-server-interactions. Therefore I wrote the following program (which has nothing to do with the book exercises), which is intended to read integers from stdin and to write the sum of the inputs so far to stdout. When I start it (in Hugs), I can enter numbers, but don't get back the sum, but every second time a zero, every forth time the value I just entered and every forth time the sum of the two values I entered the latest. Could s.o. explain me, what is going wrong? I can't figure out, what is happening here. (I know that there are easier solutions to the problem than using streams, but the latter was my intention for learning.) Thanks, Christian module Main where main = sequence reqs type Request = IO Int type Response = IO Int reqs :: [Request] reqs = client resps resps :: [Response] resps = server reqs client :: [Response] -> [Request] client (y:ys) = (do toPrint <- y putStr ("So far: " ++ show toPrint ++ "\nEnter number: ") line <- getLine return (parseToInt line)) : client ys server :: [Request] -> [Response] server = scanl helper (return 0) where helper :: IO Int -> IO Int -> IO Int helper sofar x = do a <- x sf <- sofar return (a + sf) parseToInt :: String -> Int parseToInt str = foldl nextDigit 0 (intList str) where intList :: String -> [Int] -- only for positive numbers so far intList = map (\x -> fromEnum x - 48) nextDigit :: Int -> Int -> Int nextDigit a b = a * 10 + b

1 0

award-winning
by a_seidenschnur2＠yahoo.de 10 Aug '03

10 Aug '03

A HACKER MAY BE IN YOUR SYSTEM! are you sure you're safe? most viruses these days allow unauthorized access to your pc Norton Antivirus will keep you safe from all virus systems, and scans all emails automatically! btw, you look great today. Purchase Norton Now! http://ppa1232@profitableproducts.com/default.asp?id=3000 ps. dont want any more of this shit? http://profitableproducts.com/remove/remove.html

1 0

Outlook
by birene＠erols.com 08 Aug '03

08 Aug '03

hey there, i thought you'd like to check this out You really owe it to yourself and your family to take a look, With the money you save, put it towards a new car! >----------- http://btrack.iwon.com/r.pl?redir=http://432423@onlinesaleew.com/index.asp?… >----------- for no more http://toas@onlinesaleew.com/auto/index.htm

1 0

idiom for producing comma-seperated lists?
by Antony Courtney 08 Aug '03

08 Aug '03

I often need to format a list of strings using some character as a *seperator* rather than a terminator for the items. Is there some simple combinator or idiom from the Prelude or standard libraries that could be used for this purpose? I ended up defining my own variation on foldr1 to solve this (code below), but I'd be much happier using some more standard solution: -- A variation on foldr1 that takes an extra argument to be returned if -- the list is empty. foldrs :: (a -> a -> a) -> a -> [a] -> a foldrs f z [] = z foldrs f _ xs = foldr1 f xs -- Example: format a list of strings, using a comma as a seperator: mkSepStr :: [String] -> String mkSepStr xs = foldrs (\x s -> x ++ ", " ++ s) "" xs t0 = mkSepStr [] -- ==> "" t1 = mkSepStr ["hello"] -- ==> "hello" t2 = mkSepStr ["10","20","30"] -- ==> "10, 20, 30" What do the rest of you do to solve this particular problem? If there isn't a standard solution, perhaps something like foldrs would be a useful addition to the Prelude. Thanks, -antony -- Antony Courtney Grad. Student, Dept. of Computer Science, Yale University antony(a)apocalypse.org http://www.apocalypse.org/pub/u/antony

4 4

Re: Another typing question
by oleg＠pobox.com 08 Aug '03

08 Aug '03

> Is there any way to parametrize a type by a value, rather than another > type? I believe the following web page answers your question: http://pobox.com/~oleg/ftp/Haskell/number-parameterized-types.html It uses parameterization by decimal numbers -- which seem more natural to read. > It would be interesting to know if/how you could, e.g., define a > concatenation function with a type like Yes, you can -- and the page referenced above does that.

2 1

Re: HI && TypeCast
by Iavor Diatchki 07 Aug '03

07 Aug '03

hello, this is not supposed to be serious :-) Sebastian Sylvan wrote: > ... > List comprehensions are overrated =) > > How about this: > > concatMap ( (':':) . (:[]) . fst ) [('d',3),('f',3)] > or even better: [('d',3),('f',3)] >>= (':':) . return . fst bye iavor -- ================================================== | Iavor S. Diatchki, Ph.D. student | | Department of Computer Science and Engineering | | School of OGI at OHSU | | http://www.cse.ogi.edu/~diatchki | ==================================================

2 1