This is what I have
let sum_square_difference n =
let sum_of_squares = List.fold_left (fun acc x -> acc + x * x) 0 (List.init n (fun x -> x + 1)) in
let square_of_sum = let sum = List.fold_left (+) 0 (List.init n (fun x -> x + 1)) in sum * sum in
square_of_sum - sum_of_squares
;;
I get this error:
We received the following error when we ran your code:
File "difference_of_squares.ml", line 1:
Error: The implementation difference_of_squares.ml
does not match the interface .test.eobjs/byte/difference_of_squares.cmi:
The value square_of_sum' is required but not provided File "difference_of_squares.mli", line 2, characters 0-30: Expected declaration The value sum_of_squares' is required but not provided
File "difference_of_squares.mli", line 5, characters 0-31:
Expected declaration
The value `difference_of_squares' is required but not provided
File "difference_of_squares.mli", line 8, characters 0-38:
Expected declaration
make: *** [Makefile:4: test] Error 1
https://exercism.org/tracks/ocaml/exercises/difference-of-squares