Question

in ocaml language

Execute > Share main.ml STDIN 2 (* Problem 9. Write a function that takes 3 an integer list and returns the sum of all elements in the list 1.li Result Socamle - main ..ml File "main.ml", line 9, characters 29-37: Error: This expression has type int option but an expression was expected of type int 4 If the list is empty, then return None. *) 5 let rec sum (xs:int list) : int option = 6 (* Your code START HERE *) 7 match xs with 10 -> None i hd :: t1 -> Some (hd + (sum t1)) (* error here *) 11 12 13 14 15 16 17 (* Your code END HERE *) : (* test case: all results should be TRUE *) (sum (1;2;3]) = Some 6;; (sum 0) = None;; print_string "\n====Test of Problem 9====\n";; print_string ("The result of "(sum (1;2;3]) = Some 6\" is "A (string_of_bool ((sum (1;2;31) = Some 6)) A .\n"); print_string ("The result of "(sum () = None\" is "A (string_of_bool ((sum ()) = None)) A ".\n");; "); 18 hel) - Manel"

Answer 1

Line 9-12 should be :

| hd :: tl -> let m = (hd + (sum tl)) in

Some m

(*Your code END HERE *)

;;