Your code looks a bit mangled - I hope I got it right:

1
2
3
let rec split = function
| [] | [_] -> []
| x::xs -> ([x],xs) :: [for (ls,rs) in split xs -> x :: ls, rs]
By on 12/12/2009 4:24 AM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us
Built with WebSharper