funclang series3: Removed some usless comments.

funclang-taddeus/series3/ass7.ml

@@ -18,10 +18,9 @@ let zip l m =
     let rec cut l e = if e = (length l) then l else cut (rev (tl (rev l))) e in
     (* Get the minimum of two integers *)
     let min a b = if a > b then b else a in
-    (* Get the length of the shortest list *)
-    let len = min (length l) (length m) in
     (* Cut off both lists at the length of the shortest list to equal their
      * lengts, then use the native 'combine' function *)
+    let len = min (length l) (length m) in
     combine (cut l len) (cut m len)
 ;;