-- COMP1100 Semester 1/2, 2006.
-- Laboratory week 3, exercise 3.
-- Clem Baker-Finch

-- This Haskell script contains some simple and common errors.  As one
-- of the Week 3 Laboratory exercises, you should load it into GHCi
-- and note the error messages that are reported.  You should correct
-- the errors one at a time by editing and saving this file, then
-- reloading into GHCi.

------------------------------------------------------------------------

-- Let's define a function that finds the minimum of two numbers.
-- There is already such a function `min' in the standard prelude, 
-- but this is just an exercise.

myMinimum :: int -> Int -> Int
myMinimum x y =
| x <= y     = x
| otherwise  = y

-- Next is a definition of a function that doesn't do anything very
-- useful, but it does show you to be careful with where clauses.

f :: (Int,Int) -> Int
 f x y
    | x > 10  = a
    |otherwise  = x - a
    where a = square (y+1)
         square x = x * x