Add examples/base

Author: monadius

examples/base/preloaded.ml

@@ -0,0 +1,3 @@
+open Base
+
+let print_int_list = Fn.compose Sexp.to_string (sexp_of_list sexp_of_int)

examples/base/solution.ml

@@ -0,0 +1,3 @@
+open Base
+
+let cubes = List.map ~f:Int.(fun x -> x ** 3)

examples/base/tests.ml

@@ -0,0 +1,20 @@
+open Base
+open OUnit
+open Preloaded
+
+let suite = [
+    (* "sum tests" >:::
+        [
+            "Testing 1" >:: (fun _ -> assert_equal 1 (Solution.sum 1) ~printer:print_int);
+            "Testing 9" >:: (fun _ -> assert_equal 45 (Solution.sum 9) ~printer:print_int);
+        ]; *)
+    "cubes tests (passing)" >:::
+        [
+            "Testing [1; 2; 3]" >:: (fun _ -> assert_equal [1; 8; 27] (Solution.cubes (List.range 1 4)) ~printer:print_int_list);
+            "Testing [5]" >:: (fun _ -> assert_equal [125] (Solution.cubes [5]) ~printer:print_int_list);
+        ];
+    "cubes tests (failing)" >:::
+        [
+            "Testing [1; 2; 3]" >:: (fun _ -> assert_equal [1; 8; 27] (Solution.cubes (List.range 1 5)) ~printer:print_int_list);
+        ];
+    ]