ML lab.

Lab assignment (please send me your work at the end of the lab)

• Write a function that takes a pair and returns a list of its elements. For instance, given (7, 8) it returns [7; 8]. - DONE in class, don't need to submit.
• Write a function that takes two pairs and finds their lexicographic minimum: if the first components are different then the pair with the smaller one is smaller; if the first components are the same, the second components determine the minimum.
  Test your function on pairs of ints and pairs of strings. Does it work on pairs of a string and an integer? On a pair of integers and a pair of floats?
• Write a function that finds a minimum in a list of integers.
• Write a recursive function append that takes two lists and appends the second one at the end of the first one.
• Using the color type defined here, write two functions: greener which takes two colors and returns the one whose greener component is larger, and average which takes two colors and returns a new color whose components are the averages of the respective components of the two colors.
• Using the type list, define a function that takes an element and a list and returns true if the element appears on the list and false otherwise. Note that when a function takes two arguments, but you want to do pattern-matching on one, you can use "match ... with" syntax. Here is the beginning of definition of the function:

  
  let rec find l x = 
  match l with 
  Empty -> ...
  

  Finish the definition of the function. Make sure to test your function on lists of different types.