F#实现的归并排序

本文介绍了使用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])



 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值