Advertisement
Guest User

Untitled

a guest
Mar 7th, 2017
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.15 KB | None | 0 0
  1. let rec split_two p1 = function
  2.     | [] -> []
  3.     | e::rest -> (p1,(e::rest))::(split_two (List.append p1 [e]) rest)
  4.  
  5. let rec split a = split_two [] a;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement