Skip to content

Instantly share code, notes, and snippets.

@cohalz

cohalz/PiOC5.2.5.ml

Created January 23, 2014 05:29
Show Gist options
  • Save cohalz/8573381 to your computer and use it in GitHub Desktop.
Save cohalz/8573381 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
PiOC5.2.5.ml
let rec zip lst1 lst2 =
match (lst1,lst2) with
| ([],_) | (_,[]) -> []
| ((x::xs),(y::ys)) -> (x,y)::zip xs ys
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment