Haskell 学习笔记-04：查找算法

最新推荐文章于 2025-07-16 16:49:28 发布

原创最新推荐文章于 2025-07-16 16:49:28 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Haskell #函数式编程

Haskell 专栏收录该内容

48 篇文章

订阅专栏

本文介绍如何使用Haskell语言实现顺序查找和二分查找算法。通过列表推导式简化顺序查找的代码实现，并利用哨位避免复杂的条件判断来优化二分查找。

顺序查找

充分利用 Haskell 的列表推导式，可以大大简化代码：

find x list = [(n,y) | (n,y) <- zip [0.. ] list, y == x]

>>find 5 [1,2,3,4,5,0,1,2,3,4,5,6,7,8,9]
[(4,5),(10,5)]

二分查找

利用哨位，可以避免一大坨 if else 嵌套。同时，where 指令结合哨位，也可以写出比较简单容易看明白的函数逻辑。

find2 x list 
    | list == []    = -1
    | x < b         = find2 x list1
    | x > b         = if k >= 0 then m + 1 + k else -1
    | otherwise     = m
    where
        m = length(list) `div` 2
        list1 = take m list
        b = list !! m
        list2 = drop (m + 1) list
        k = find2 x list2


>>find2 55 [0,1,2,3,4,5,6,7,8,9]
-1
>>find2 5 [0,1,2,3,4,5,6,7,8,9]
5