funclang series3: Prettified ass 7.5 (map).

55f38f26 · Taddeus Kroes · e3902d0a · 55f38f26
Commit 55f38f26 authored Nov 16, 2011 by Taddeus Kroes
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

funclang-taddeus/series3/ass7.ml funclang-taddeus/series3/ass7.ml +5 -1

No files found.
--- a/funclang-taddeus/series3/ass7.ml
+++ b/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 =