March 2002 - Haskell-Cafe

Change a light bulb
by Shawn P. Garbett 01 Mar '02

01 Mar '02

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I finally got a clue. I got the Haskell program working. Now to build upon it. Jay's comment really made the IO monad concept sink in for me. Also reading through Manuael M T Chakravarty's Boolean editor was mind expanding as well. My biggest question is how to simplify, make more efficient, make more lazy what I have here. There's so much more to do now..... - -- State model of a light bulb with IO import Monad import IO main :: IO () main = do -- Turn off buffering so response is immediate hSetBuffering stdin NoBuffering hSetBuffering stdout NoBuffering -- Process from the intialState process initialState return () - -- A generic state-machine processor process :: State -> IO () process st = do -- retrieve current stimulus s <- getStimulus putChar '\n' -- compute new state and response (r, st') <- do { return (s st) } -- do the specified response r -- if the state is lambda then exit if( st' /= Lambda) then process st' else return () - -- Now define state for our humble lightbulb - -- State definition data State = Dark | Light | Lambda deriving (Show, Eq, Enum) - -- The inital state initialState :: State initialState = Dark - -- Response definitions type Response = IO () activate :: Response activate = putStr "Haskell said, let there be light.\n" deactivate :: Response deactivate = putStr "And darkness was upon the void.\n" - -- Here is the state transforms (i.e. stimuli) type Stimulus = State -> (Response, State) on :: Stimulus on Dark = (activate, Light) on Light = (return (), Light) off :: Stimulus off Dark = (return (), Dark) off Light = (deactivate, Dark) exit :: Stimulus exit x = (return (), Lambda) - -- Create a stimulus source from stdin charToStimulus :: Char -> Stimulus charToStimulus '1' = on charToStimulus '0' = off charToStimulus c = exit getStimulus :: IO Stimulus getStimulus = liftM charToStimulus getChar Shawn - -- You're in a maze of twisty little statements, all alike. Public Key available from http://www.garbett.org/public-key -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE8f8hxDtpPjAQxZ6ARAtWFAJ9fQ7rURyKebnSlBvrEklBSqnnb1QCdHHtM I4nSaTg0Sl2vIz+Yx1Z7ab8= =FKTr -----END PGP SIGNATURE-----

1 0

All Segments Problem
by Saswat Anand 01 Mar '02

01 Mar '02

Hi All, This is not a haskell problem. I need some pointers which some of you might provide. In program calculation community, segement problems e.g. maximum sum problem have been studied extensively. The problems involve finding a segment of the list that maximizes some objective function and satisfies some predicate. But I am wondering if is there similar study on the family of problems where we need to find all the segments of a list that satisfy some predicate. I am interested in predicates involving forall and existential quantifiers. Thanks for any suggestion. Cheers, Saswat

1 0

Changing a light bulb.
by Shawn P. Garbett 28 Feb '02

28 Feb '02

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Now after my earlier soap box tirade I'm trying to put my code where my mouth is. >>blush<< It's harder than I thought. I've broken it down into a State Model of a light bulb. The goal, to find out just how much Haskell code does it take to change the state of a light bulb? Here's a very crippled version. Is there an easy way to introduce state without changing the type of main??? I've written a much more complex example, but I got into things like main :: STT(IO) using a monad transformer. So really, the big question is, must I use a monad transformer? - ------------------------------------------------------------------------------------------------ - -- State model of a light bulb import Monad import IO main :: IO () main = do hSetBuffering stdin NoBuffering process process :: IO () process = do i <- assign initialState putChar '\n' print(s) if (s /= Exit) then process else return () data State = Dark | Light initialState :: State initialState = Dark data Stimulus = On | Off | Exit deriving (Show, Eq, Enum) charToStimulus :: Char -> Stimulus charToStimulus '1' = On charToStimulus '0' = Off charToStimulus c = Exit getStimulus :: IO Stimulus getStimulus = liftM charToStimulus getChar - -- State transformer newtype St a = MkSt (State -> (a, State)) - -- State transformer applied to state apply :: St a -> State -> (a, State) apply (MkSt f) s = f s - -- State monad instance Monad St where return x = MkSt f where f s = (x,s) p >>= q = MkSt f where f s = apply (q x) s' where (x, s') = apply p s - -- Useful State operations fetch :: St State fetch = MkSt f where f s = (s,s) assign :: State -> St () assign s' = MkSt f where f s = ((),s') done :: St () done = return () - ----------------------------------------------------------------------------------------------------------------------- - -- You're in a maze of twisty little statements, all alike. Public Key available from http://www.garbett.org/public-key -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE8fqdpDtpPjAQxZ6ARAkCWAJ9pGcS/hQpoK12AdcEmt8Y/0rEv9ACfWGtO 1FL9VwopmgsAyUAv9RL++T8= =a9xu -----END PGP SIGNATURE-----

2 1

Re: Ground Up
by Rijk J. C. van Haaften 28 Feb '02

28 Feb '02

Jerry wrote >However, my problems are: >* I still don't understand most of the codes I found, like the various > haskell libraries Practice is the only answer to this problem, as Keith Wansbrough says. >* I still have no clue of most (ok, almost all) of what is being > discussed in this mailing list Though I am a CS student, being highly interested in Haskell and practising a lot, I didn't understand most of the discussions on this mailing list. I started understanding them only after I got involved in implementing a Haskell compiler. Therefore, don't worry about this point. A haskell-user doesn't need to know the details of the haskell compiler ins and outs. Rijk-Jan van Haaften

4 4

Re: Help
by Rijk J. C. van Haaften 28 Feb '02

28 Feb '02

You probably want to do something like this: main = do { contents <- input "twoboxes.dat" return (control (parser contents)) } At 11:53 25-02-02 -0300, Juan M. Duran wrote: >Hi, I'm writting a small parser in Haskell and, when it is all done, I get >the following problem: Type Binding. >The thing is, I have 3 main functions: >1) Read the file, its type is: [Char] ->IO [Char] (see InputOutput.hs) >2) Parse a string (using words and readDec), its type is: Integral a => >[Char] -> [a] (see Parse.hs) >3) Parse a list of integer, its type is: [Float] -> [[Float]] >(Functions.hs) > >Now the problem is that I cannot run the first function, then use its >results as an input of the second function and, finally, its results as >the input of the third function. > >How can I fix this without modifing all my functions because they, >independly, works fine. > >Juan

5 6

RE: Ground Up
by Konst Sushenko 28 Feb '02

28 Feb '02

a word from a beginner (with a CS background): Alternatively, just do not use compiler specific features in your programs and this will make your programs work with different compilers. I went away from Lisp because there are no types. someone said once that Lisp is a sort of intermediate language that many people happen to like to program in. an assembly language of sorts. I went away from ML because once I got a taste of laziness, having my parameters evaluated before my function is called started to upset me ;-), and also I do not like that I have to use tuples in ML's datatypes. At least I did not find a way to not use them... But then of course one starts seeing all these problems with expressions taking too much heap space when writing programs of considerable size... But then using a purely functional language will teach you to forget trying to change a tuple or anything else in place (although I saw libraries in GHC that can change arrays, etc, in-place but I never used them), which is helpful I believe because it gives a different perspective on writing code. konst > -----Original Message----- > From: Max Kirillov [mailto:max630@mail.ru] > Sent: Thursday, February 28, 2002 1:10 PM > To: haskell-cafe(a)haskell.org > Subject: Re: Ground Up > > > Hi! > > I'm far not an expert in Haskell, but I'll venture to say > "I'm in". I'm not an CS student and I have never been (I > learned Solid State Physics). I became there in about 6 > months without paying a cent. Well, I paid for dialup. I > also spent a lot of time. My wife should hate Haskell. > > I would recommend you not to be confined by Haskell. Take a > look at Lisp, ML. First, it helps to get into concepts > rather than into details of syntax parsing of high-order > polymorphism. I began learning FP with Erlang, and I think > it helped me. > > Further, Haskell, though _very_ nice, is probably not "the > best choice" for a "pragmatic programming". It is too alive. > Different compilers are not 100% compatible each to other, > and even different versions of the same compilers may be > incompatible. You should be ready either to stick yourself > and your co-wokers to a certain version of the compiler or > to spend some significal time to keep you programs working > with any compiler. > > Maybe you will find that it's better to use Ocaml or > Scheme. Thay have own neats, and seem to be more stable. > > Max. > > On Thu, Feb 28, 2002 at 09:41:10PM +0800, Jerry, JiJie wrote: > > Good day everyone, I'm a haskell newbie trying to seeking advice to > > advance myself. > > > > My backgrounds are: > > * As a non-CS student, I have absolutely no knowledge of > lambda calculus > > * And unfortunately I have to make painful decision on spending $30 > > on a book or three days' meal > > > > While my goals are: > > * Become a pragmatic haskell programmer in the shortest time > > * At the minimal expense > > > > What I have done for the past few weeks were: > > * I read almost all the free educational sources at > www.haskell.org, > > * Subscribed to this mailing list and try > to digest every mail > > * Read most of the "The Haskell School of Expression" (by Paul > > Hudak) and the non-theoretical chapters of the "An Introduction To > > Functional Programming Systems Using Haskell" (by AJT > Davie), which > > are the only two introductory level haskell related books in our > > library > > > > However, my problems are: > > * I still don't understand most of the codes I found, like > the various > > haskell libraries > > * I still have no clue of most (ok, almost all) of what is being > > discussed in this mailing list > > > > So I'm eager to know if there are cost-effective ways to achieve my > > goals or at least leverage myself from the beginner's level. > > > > Your advice would be greatly appreciated! > > > > Regards, > > Jerry > > _______________________________________________ > > Haskell-Cafe mailing list > > Haskell-Cafe(a)haskell.org > > http://www.haskell.org/mailman/listinfo/haskell-cafe > > > _______________________________________________ > Haskell-Cafe mailing list > Haskell-Cafe(a)haskell.org > http://www.haskell.org/mailman/listinfo/haskell-cafe >

1 0