haskell - 在 Haskell 中过滤斐波那契数列

Question

我正在尝试过滤包含斐波那契数列的列表。

我需要的只是奇数，并且小于或等于 N 。

这是我到目前为止所拥有的:

fib   n | n == 0         = 0
        | n == 1         = 1
        | otherwise = fib (n-1) + fib (n-2)

fibs n = [a | a <- [fib x | x <- [1..]], odd a, a < n]

这会给我我想要的，但同时该解决方案不起作用，因为我不知道如何停止从 fib 函数检索元素。当然，这是因为 x <- [1..] 。

我考虑过两种选择:

1. 在 n 中设置限制(取决于 x <- [1..] )
2. 定义 fibs 递归，以便我知道何时停止(在编写问题时考虑过)

我怎样才能做到这一点？

我不是在寻找有效的方法

编辑:
这是我最后得到的两个解决方案:

fib   n | n == 0         = 0
        | n == 1         = 1
        | otherwise = fib (n-1) + fib (n-2)

fibsAux n k xs  | a < n     = fibsAux n (k+1) (xs ++ [a])
                | otherwise = xs
                where 
                    a = fib k
fibs n = filter odd $ fibsAux n 0 []

以及使用@hammar建议的一个:

fibs x = takeWhile (< x) [a | a <- [fib x | x <- [1..]], odd n]

Answer 1

看看the takeWhile function来自 Data.List(并由 Prelude 重新导出)。例如，

takeWhile (< 4) [1..] == [1, 2, 3]

请注意，即使列表是无限的，一旦找到不满足谓词的元素，就会终止。