small

work-fw · Aug 29, 2018 · b72997c · b72997c
1 parent 4a14ab3
commit b72997c
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 2 deletions.
diff --git a/a.out b/a.out
diff --git a/test7.cmi b/test7.cmi
diff --git a/test7.cmo b/test7.cmo
diff --git a/test7.ml b/test7.ml
@@ -19,12 +19,34 @@ let fact = add a b
 	else gcd (a-b) b
 *)
 
-let rec gcd a b =
+(*let rec gcd a b =
 	match (a,b) with
 	| (1,_) | (_,1) -> 1
 	| _ ->
 		if a=b then a
 		else if a<b then gcd b a
 		else gcd (a-b) b
+*)
+
+(*let rec sum_of_list l =
+	match l with
+		| [] -> 0
+		| h::t -> h + sum_of_list t
+*)
+
+(*let rec length l =
+	match l with
+		| []-> 0
+		| _::t -> 1+ length t
+*)
+
+
+let _ = print_endline (string_of_int (length [1;2;3;4;5]))
+
+
+
+
+
+
+
 
-let _ = print_endline (string_of_int (gcd 24 4))