I believe it would be roughly

1
2
3
4
5
6
7
8
9
10
 

let until fb fe =
    let rec loop ((_::ts') as ts) (e::es) (b::bs) =
        b :: (match e with
              | None -> loop ts' es bs
              | Some fb' -> List.tail(fb' ts))
    fun ts -> loop ts (fe ts) (fb ts)

By on 5/13/2010 3:44 PM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper