Случайно наткнулся на ссылочку
Фиббоначи на хаскеле и там не хватает чего-то на подобии:
fib a b = a : b : zipWith adj bfib (tail bfib) where
adj x y = a*x + b*y
bfib = 1 : 1 : wheel bfib where
wheel (a:b:xs) = (take r . drop 2) (fib a b) ++ wheel (drop (r-2) xs)
r = 20
fibs = 1 : 1 : zipWith (+) fibs (tail fibs)Все семейства
(
Read more... )