SHARE
TWEET

Untitled

a guest Nov 13th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let zip (xs, ys) =
  2.     List.rev (List.fold_left (fun acc hx -> match ys with
  3.     | h::t -> (hx, h)::acc
  4.     | [] -> acc
  5.                                                                 ) [] xs);;
  6.  
  7.  
  8. zip( [1;2;3] ,['a';'b';'c']);;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top