Anything Forums

Code: Select all

import IO

myfunc nbr =
  do
    putStr ("This is " ++ show nbr)
    hFlush stdout
    if nbr < 10 then myfunc (nbr + 1)
    else return ()[code]

However, Haskell already makes this pretty easy.  You could simply write:

[code]mapM_ (
br -> do { putStr ("This is " ++ show nbr); hFlush stdout }) [0..9][code]

:)

As for your second question... the closest thing to nothing in Haskell is ().

However, it sounds more like you're thinking of the Maybe data type.  Let's consider a fairly simple example.  You want to find the position of an element in a list.

First, we know that nothing we could possibly be located anywhere in an empty list.  So the item and the counter don't even matter.

[code]findPos _ _ [] = Nothing[code]

But it might be in a non-empty list.

[code]findPos item counter (x:xs) =
  if x == item then 
    Just counter
  else
    findPos item (counter + 1) xs[code]

Here we used the Just constructor for the Maybe data type, whereas we had used the Nothing constructor previously.

Now if I were to run:

[code]findPos 4 0 [1,2,3,4,5][code]

I would get in return:

[code]Just 3[code]

But if I run:

[code]findPos 7 0 [1,2,3,4,5][code]

I get:

[code]Nothing[code]

I can use pattern matching to discern this at run-time.

[code]case findPos n 0 [1..9] of
  Nothing -> putStrLn (show n ++ " wasn't found.")
  Just pos -> putStrLn (show n ++ " found at index " ++ show pos)[code] 

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:3451, old post ID:27898[/size][/color]

Code: Select all

pow (x,0) = 1  
pow (x, n) = 
	if rem n 2 == 0
  then (pow (x, n/2))^2
  else x * (pow (x, n/2))^2
[code]
but when trying it by typing pow (2,4) or something, I get an error 

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:3451, old post ID:27913[/size][/color]

Code: Select all

pow _ 0 = 1 
pow x 1 = x 
pow x n =
 if rem n 2 == 0
  then pow x (div n 2) ^ 2
  else x * pow x (div n 2) ^ 2[code]

Oh, and you'll notice that I used a new definition of "pow" for an exponent of 1.  :)
 

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:3451, old post ID:27940[/size][/color]

Code: Select all

$ cat > Main.hs
module Main where

main = putStrLn "Hello world"
$ hugs
__   __ __  __  ____   ___      _________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2003
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Report bugs to: hugs-bugs@haskell.org
||   || Version: November 2003  _________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions

Type :? for help
Prelude> :load Main
Main> main
Hello world

Main> :q
[Leaving Hugs]
$[code] 

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:3451, old post ID:28664[/size][/color]