Commit 5b2ec064 authored by Taddeus Kroes's avatar Taddeus Kroes

funclang series3: Fixed typo.

parent 51b482c7
...@@ -20,7 +20,7 @@ let zip l m = ...@@ -20,7 +20,7 @@ let zip l m =
(* Get the minimum of two integers *) (* Get the minimum of two integers *)
let min a b = if a > b then b else a in let min a b = if a > b then b else a in
(* Cut off both lists at the length of the shortest list to equal their (* Cut off both lists at the length of the shortest list to equal their
* lengts, then use the native 'combine' function *) * lengths, then use the native 'combine' function *)
let len = min (length l) (length m) in let len = min (length l) (length m) in
combine (cut l len) (cut m len) combine (cut l len) (cut m len)
;; ;;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment