in ocaml language

For the following problems, you must only use List.map , List.fold_left ,or List.fold_right to complete these functions, so no functions should be defined using the rec keyword. You will lose points if this rule is not followed. Some of these functions will require just List.map or List.fold_left , but some will require a combination of the two. The map/reduce design pattern may come in handy, e.g. map over a list to convert it to a new list which you then process a second time using fold. The idea is that you first process the list using map, and then reduce the resulting list using fold. Problem 6 Write a function assoc_list: 'a list -> l'a * int) list that, given a list, returns a list of pairs where the first integer represents the element of the list and the second integer represents the number of occurrences of that element in the list. This associative list should not contain duplicates. Order does not matter. For example, assoc_list [1; 2; 2; 1; 3] = [(2,2); (1, 2); (3, 1)]. = let assoc_list i (* YOUR CODE HERE *) For the following problems, you must only use List.map , List.fold_left ,or List.fold_right to complete these functions, so no functions should be defined using the rec keyword. You will lose points if this rule is not followed. Some of these functions will require just List.map or List.fold_left , but some will require a combination of the two. The map/reduce design pattern may come in handy, e.g. map over a list to convert it to a new list which you then process a second time using fold. The idea is that you first process the list using map, and then reduce the resulting list using fold. Problem 6 Write a function assoc_list: 'a list -> l'a * int) list that, given a list, returns a list of pairs where the first integer represents the element of the list and the second integer represents the number of occurrences of that element in the list. This associative list should not contain duplicates. Order does not matter. For example, assoc_list [1; 2; 2; 1; 3] = [(2,2); (1, 2); (3, 1)]. = let assoc_list i (* YOUR CODE HERE *)