使用Haskell统计指定高低区间内的数字数量

看起来你正在用Haskell实现一个统计列表中落在指定区间内数字个数的函数，我帮你检查了一下现有代码，发现了一个小问题，同时也可以给你一些优化建议~

首先看你当前的代码：

countRange :: Int -> Int -> [Int] -> Int
countRange _ _ [] = 0
countRange low high (x:xs)
    | (low < x) && (high > x) = 1 + (countRange low high xs)
    | otherwise = countRange low high xs

这里的问题在于你的条件判断(low < x) && (high > x)——它只统计严格大于low且严格小于high的数字，会漏掉等于区间边界值的元素。比如你给出的第二个示例countRange 1 3 [1,2,3,4,5]，现有代码只会统计到2，返回1，但示例期望的结果是3，显然不符合需求。

修正后的递归实现 #

把判断条件改成包含边界的形式，就能解决这个问题：

countRange :: Int -> Int -> [Int] -> Int
countRange _ _ [] = 0
countRange low high (x:xs)
    | x >= low && x <= high = 1 + countRange low high xs
    | otherwise = countRange low high xs

现在再测试你的示例：

• countRange 5 8 [] → 返回0，符合预期
• countRange 1 3 [1,2,3,4,5] → 1、2、3都满足条件，返回3，和示例结果一致

更简洁的高阶函数实现 #

Haskell的高阶函数可以让这个逻辑变得更简洁直观，我们可以用filter筛选出符合区间的元素，再用length取长度：

countRange :: Int -> Int -> [Int] -> Int
countRange low high = length . filter (\x -> x >= low && x <= high)

这个版本利用了函数组合，代码更短，也不容易出现边界判断的错误。

内容的提问来源于stack exchange，提问作者Aelin