F#实现的归并排序

最新推荐文章于 2022-10-03 11:04:37 发布

最新推荐文章于 2022-10-03 11:04:37 发布 · 164 阅读

文章标签：

#F# #算法

F# 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了使用F#语言实现的归并排序算法，包括自上而下的深度优先实现及自底向上的基本思路。提供了具体的F#代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

F#实现的归并排序

//此算法只是原理，不能真正应用
open System
printfn "dsfsadsf" 
let Merge(x,y)=
     (x@y)|>List.sort

//自上而下深度优先

let rec MergeSortUp (sortList:List<int>)=
    match sortList with
    |[]->[]
    |[x]->[x]
    |xs->
        let k=xs.Length/2
        let a=List.toSeq(xs)|>Seq.take(k)
        let b=List.toSeq(xs)|>Seq.filter(fun e->not(a|>Seq.exists(fun s->s=e)))
        Merge(MergeSortUp(a|>Seq.toList),MergeSortUp(b|>Seq.toList))


let test=MergeSortUp([2;3;9;8;7;1])
//自底向上//不好用得修改

let rec MergePairs(part,k)=
    match part with
    |[x]->[x]
    |(l1::l2::ls)-> 
        printf "%A__%A" l1 l2
        if k%2=1 then l1::l2::ls
        else 
           MergePairs((Merge([l1],[l2])@ls),k/2)
    |_->[]
    
let rec Sorting(lx:List<int>,ls:List<int>,k:int)=
    match lx with
    |[]->MergePairs(ls,0)
    |(x::xs)->Sorting(xs,MergePairs(x::ls,k+1),k+1)
let MergeSortDown xs=Sorting(xs,[],0)
MergeSortDown([2;3;9;8;7;1])