diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md index cf4415c..b56ee39 100644 --- a/Algo/Courses/Chapter 6 - Lists (Exercises).md +++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md @@ -140,12 +140,12 @@ let rec growing = function ``` ## Exercise 3.2 -```Ocaml +```ocaml let rec delete x = function | [] -> [] | e::i -> if x == e then i - else if e < x then + else e::delete x i - else 1 ``` +j \ No newline at end of file