Блог

Я пытаюсь отфильтровать список, содержащий числа Фибоначчи.

Что мне нужно, так это только нечетные числа, и меньше или равно 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]
  

Взгляните на takeWhile функцию из Data.Список (и повторно экспортируется с помощью Prelude). Например,

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

Обратите внимание, что, хотя список бесконечен, он завершается, как только он находит элемент, который не удовлетворяет предикату.

Существует также более эффективный способ вычисления чисел Фибоначчи:

 fibs = 0 : 1 : zipWith ( ) fibs (tail fibs)
  

Которая может быть отфильтрована для получения только нечетных чисел:

 oddFibs = filter odd fibs
  

Которое может быть усечено до меньшего или равного N:

 oddFibsLeN n = takeWhile (<= n) oddFibs