funclang series5: Moved tree insert test to separate file.

funclang-taddeus/series5/ass11.ml

@@ -38,14 +38,3 @@ let rec lookup value = function
       Leaf -> false
     | Node (v, _, left, right) -> v = value
         || (if value < v then lookup value left else lookup value right)
-
-let a = Leaf
-let a = insert a 13
-let a = insert a 8
-let a = insert a 17
-let a = insert a 1
-let a = insert a 11
-let a = insert a 15
-let a = insert a 6
-let a = insert a 22
-let a = insert a 27

funclang-taddeus/series5/test_tree.ml

+#use "ass11.ml"
+
+(* Note: to run this test, open an OCaml shell and type
+ * '#use "test_tree.ml";;'. This will show the progress of insertions
+ * into 'a'. *)
+let a = Leaf
+let a = insert a 13
+let a = insert a 8
+let a = insert a 17
+let a = insert a 1
+let a = insert a 11
+let a = insert a 15
+let a = insert a 6
+let a = insert a 22
+let a = insert a 27