内容简介:F# 插入排序 和归并排序
插入排序 insertSort
let insertSort array =
let length = Array.length array
for i in [1..(length-1)] do
let key = array.[i]
//insert key to sub array[0..i-1]
let mutable j = i-1
while (j>=0 && array.[j]>key) do
array.[j+1] <- array.[j]
j <- j-1
array.[j+1]<-key
let a=[|6;7;1;3;2;9;8;18;18;12|]
a |> insertSort
归并排序 mergesort
let merge array lo mid hi =
let mutable i = lo
let mutable j = mid
let length = Array.length array
let tempArray = Array.create length 0
let mutable index =0
while (i<mid && j<hi) do
if array.[i]<array.[j] then
tempArray.[index]<-array.[i]
i<-i+1
index<-index+1
if array.[i]>=array.[j] then
tempArray.[index]< -array.[j]
j<-j+1
index<-index+1
//check if there's any remaining let
if i<mid then
for k in [i .. (mid-1)] do
tempArray.[index] <- array.[k]
index<-index+1
if j<hi then
for k in [j .. (hi-1)] do
tempArray.[index] <- array.[k]
index<-index+1
for i in [lo..(hi-1)] do
array.[i] <- tempArray.[i-lo]
let rec mergeSort' array lo hi =
let length = hi - lo
if length>1 then
let mid = max ((hi - lo)/2) (lo+1)
mergeSort' array lo mid
mergeSort' array mid hi
merge array lo mid hi
let mergeSort array =
mergeSort' array 0 (Array.length array)
let array =[|4;1;5;6;7;8;13;19;12|]
array |> mergeSort
以上所述就是小编给大家介绍的《F# 插入排序 和归并排序》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!
猜你喜欢:- MergeSort归并排序和利用归并排序计算出数组中的逆序对
- 归并排序与快速排序
- F# 插入排序 和归并排序
- 算法之常见排序算法-冒泡排序、归并排序、快速排序
- 深入浅出排序算法(2)-归并排序
- 归并排序求逆序数
本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们。
人人都是产品经理2.0
苏杰 / 电子工业出版社 / 2017-5 / 66.6
《人人都是产品经理2.0——写给泛产品经理》继续定位在-1~3 岁的产品经理。这里特别要强调,“-1 岁”指的是“泛产品经理”群体,比如自认为是“产品新人”的“职场老人”,需要自己做产品的早期创业者,对产品感兴趣并且工作中可能要承担部分职责的技术、设计、运营等人员,其他行业对互联网产品感兴趣的从业者等,《人人都是产品经理2.0——写给泛产品经理》可以说是为他们量身定做的。 内容方面,《人人都......一起来看看 《人人都是产品经理2.0》 这本书的介绍吧!