funclang series3: Prettified ass 7.5 (map).

funclang-taddeus/series3/ass7.ml

@@ -23,7 +23,11 @@ let zip l m =
 ;;
 
 (* 4 *)
-let rec map f l = if length l = 0 then [] else (f (hd l))::(map f (tl l));;
+let rec map f l =
+    match l with
+    | [] -> []
+    | h::t -> f h::map f t
+;;
 
 (* 5 *)
 let rec reduce f z l =