GeoffRiley

module InfiniteSequences(
    evens,
    odds,
    triangles,
    squares,
    hexagonals,
    power2,
    power8,
    power10,
    power16,

GeoffRiley

data Tree = Leaf 
          | Node Int Tree Tree
          deriving Show

--| Calculate the depth of the given tree
treeDepth :: Tree -> Int
treeDepth Leaf = 0
treeDepth (Node _ leftSubtree rightSubtree) =
  1 + max (treeDepth leftSubtree) (treeDepth rightSubtree)

GeoffRiley

fizzBuzz :: IO ()
fizzBuzz = do
  let fb = [fizzOrBuzz x | x <- [1..100]]
  print fb

fizzOrBuzz :: Int -> String
fizzOrBuzz x
  | x `mod` 15 == 0 = "FizzBuzz"
  | x `mod` 3 == 0  = "Fizz"
  | x `mod` 5 == 0  = "Buzz"