carldr.com

# fizz buzz in haskell

main = putStrLn ( join ( map fizzbuzz [1..100] ) )
join         :: [String] -> String
join [x]     = x
join (x:xs)  = x ++ "\n" ++ ( join xs )
fizzbuzz    :: Integer -> String
fizzbuzz x  | ( mod x 15 ) == 0  = "Fizzbuzz" 
            | ( mod x 3 ) == 0   = "Fizz" 
            | ( mod x 5 ) == 0   = "Buzz" 
            | otherwise          = show x

And the third (first, second) of my Haskell programs. Fizz Buzz! I deliberately built the string in a different (and probably better) way than 99 bottles.

# 99 bottles in haskell

main = putStrLn ( bottle 99 )
bottle    :: Integer -> String
bottle 1  =  ( bottle_string 1 ) ++ " on the wall, " 
          ++ ( bottle_string 1 ) ++ ".\n" 
          ++ "Go to the store and buy some more, " 
          ++ ( bottle_string 99 ) ++ " on the wall." 
bottle x  =  ( bottle_string x ) ++ " on the wall, " 
          ++ ( bottle_string x ) ++ ".\n" 
          ++ "Take one down and pass it around, " 
          ++ ( bottle_string ( x - 1 ) ) ++ " on the wall.\n\n" 
          ++ bottle ( x - 1 )
bottle_string    :: Integer -> String
bottle_string 1  = "1 bottle of beer" 
bottle_string x  = ( show x ) ++ " bottles of beer"

And 99 bottles of beer in Haskell. The code style is a bit more like the usual Haskell style than my last effort, I think.

# fibonacci in haskell

main = print( fib 10 )
fib :: Int -> Int
fib( 0 ) = 0
fib( 1 ) = 1
fib( x ) = fib( x - 1 ) + fib( x - 2 )

My first Haskell program! Looks very like the definition on Wikipedia.