feat(corpus): add exercises from https://github.com/acamanes/ocaml-public

Author: EmileRolley

exercises/alain.camanes/01_01-min_3/descr.md

@@ -0,0 +1,7 @@
+{
+    "learnocaml_version": "1",
+    "kind": "exercise",
+    "stars": 0,
+    "title": "Exercice 1: Minimum 3",
+    "short_description": "Où l'on détermine le minimum de 3 éléments"
+}

exercises/alain.camanes/01_01-min_3/meta.json

@@ -0,0 +1,4 @@
+let min3 a b c =
+  let (aa, bb) =
+    if a < b then (a,b) else (b,a) in
+  if aa < c then aa else c

exercises/random_access_lists/NOTES …ses/alain.camanes/01_01-min_3/prelude.mlexercises/random_access_lists/NOTES renamed to exercises/alain.camanes/01_01-min_3/prelude.ml exercises/random_access_lists/NOTES renamed to exercises/alain.camanes/01_01-min_3/prelude.ml

@@ -0,0 +1 @@
+let min3 a b c = failwith "Put your code here"

exercises/alain.camanes/01_01-min_3/prepare.ml

@@ -0,0 +1,25 @@
+open Test_lib
+open Report
+
+let exercise_1 =
+  Section ([ Text "Function: ";
+             Code "min3";
+             Text " with multiple tested input types." ],
+           test_function_3_against_solution
+               [%ty: int -> int -> int -> int]
+               "min3"
+               ~gen:5 [] @
+            test_function_3_against_solution
+              [%ty: char -> char -> char -> char]
+              "min3"
+              ~gen:5 [] @
+            test_function_3_against_solution
+              [%ty: float -> float -> float -> float]
+              "min3"
+              ~gen:5 []
+  )
+
+let () =
+  set_result @@
+  ast_sanity_check code_ast @@ fun () ->
+  [exercise_1]

exercises/alain.camanes/01_01-min_3/solution.ml

@@ -0,0 +1,7 @@
+{
+    "learnocaml_version": "1",
+    "kind": "exercise",
+    "stars": 0,
+    "title": "Exercice 2: Norme d'un vecteur",
+    "short_description": "Où l'on implémente la norme euclidienne"
+}