let quicksort() = printfn "quick sort"

​

let bubblesort() = printfn "bubble sort"

​

let mergesort() = printfn "merge sort"

​

​

let sortwithStrategy algo = algo()

​

sortwithStrategy quicksort

sortwithStrategy bubblesort

sortwithStrategy mergesort

​