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

顺序查找

充分利用 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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

许野平

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值