Write a function ap: ('a'b) list> 'a list -> 'b list ap fs args applies each...

Transcribed Image Text:

Write a function ap: ('a'b) list> 'a list -> 'b list ap fs args applies each function in fs to each argument in args in order. For example, ap [(fun x -> x^"?"); (fun x -> x^"!")] ["foo"; "bar"]= ["foo?"; "bar?" ; "foo!"; "bar!"] where is an OCaml operator for string concatenation. let ap fs args = (* YOUR CODE HERE *) assert (ap (fun x -> x^"?"); (fun x - x^!")] ["foo"; "bar"]= ["foo?"; "bar?"; "foo!"; "bar!"]); Write a function ap: ('a'b) list> 'a list -> 'b list ap fs args applies each function in fs to each argument in args in order. For example, ap [(fun x -> x^"?"); (fun x -> x^"!")] ["foo"; "bar"]= ["foo?"; "bar?" ; "foo!"; "bar!"] where is an OCaml operator for string concatenation. let ap fs args = (* YOUR CODE HERE *) assert (ap (fun x -> x^"?"); (fun x - x^!")] ["foo"; "bar"]= ["foo?"; "bar?"; "foo!"; "bar!"]);

Answer rating: 100% (QA)

Heres an OCaml function ap that takes a list of functions fs ... View the full answer