13
1
let quicksort() = printfn "quick sort"
2
3
let bubblesort() = printfn "bubble sort"
4
5
let mergesort() = printfn "merge sort"
6
7
8
let sortwithStrategy algo = algo()
9
10
sortwithStrategy quicksort
11
sortwithStrategy bubblesort
12
sortwithStrategy mergesort
13