let longest_string1 = List.fold_left(fun a b -> if String.length(a) >= String.length(b) then a else b) ""

Write in Ocaml .ml

(* #3 *)

let longest_string2 = List.fold_left(fun a b -> if String.length(a) > String.length(b) then a else b) ""

(*here above are longest_string 1 and longest_string 2, please i need help with question 4 thank you so much

notice longest_string_helper has type (int -> int-> bool) -> string list -> string not ( int * int -> bool ) -> string list -> string

OCAML Language

4. Write functions longest_string_helper, longest_string3, and longest_string4 such that: - longest_string3 has the same behavior as longest_string1 and longest_string4 has the same behavior as longest_string2. - longest_string_helper has type (int int bool) string list string (notice the currying). This function will look a lot like longest_string1 and longest_string2 but is more general because it takes a function as an argument. 1 - If longest_string_helper is passed a function that behaves like > (so it returns true exactly when its first argument is strictly greater than its second), then the function returned has the same behavior as longest_string1. - longest_string3 and longest_string4 are bound to the result of calls to longest_string_helper