Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let rec split_two p1 = function
- | [] -> []
- | e::rest -> (p1,(e::rest))::(split_two (List.append p1 [e]) rest)
- let rec split a = split_two [] a;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement