当前位置:首页 > 开发 > 编程语言 > 编程 > 正文

Haskell版冒泡排序

发表于: 2012-02-15   作者:bookjovi   来源:转载   浏览:
摘要: 面试的时候问的比较多的算法题要么是binary search,要么是冒泡排序,真的不想用写C写冒泡排序了,贴上个Haskell版的,思维简单,代码简单,下次谁要是再要我用C写冒泡排序,直接上个haskell版的,让他自己去理解吧。     sort [] = [] sort [x] = [x] sort (x:x1:xs) | x>x1 = x1:so

面试的时候问的比较多的算法题要么是binary search,要么是冒泡排序,真的不想用写C写冒泡排序了,贴上个Haskell版的,思维简单,代码简单,下次谁要是再要我用C写冒泡排序,直接上个haskell版的,让他自己去理解吧。

 

 

sort [] = []
sort [x] = [x]
sort (x:x1:xs)
    | x>x1 = x1:sort (x:xs)
    | otherwise = x:sort (x1:xs)
mpsort [] = []
mpsort x = let tmp = sort x in
           mpsort (init tmp) ++ [(last tmp)]

 运行结果:

 

*Main> mpsort [0,1000,-1,5,4,10,10,1,1,2,3]
[-1,0,1,1,2,3,4,5,10,10,1000]

Haskell版冒泡排序

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号