Skip to content

Instantly share code, notes, and snippets.

@cohalz

cohalz/PiOC.5.2.6.ml

Last active January 4, 2016 08:09
Show Gist options
  • Save cohalz/8593849 to your computer and use it in GitHub Desktop.
Save cohalz/8593849 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
PiOC.5.2.6.ml
(*´･_･`*)
let rec unzip = function
| [] -> ([],[])
| (x,y)::xs -> (x::fst (unzip xs),y::snd (unzip xs))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment