Fibs.hs

-- Função fibonacci memoizada usando: 
-- * recursão, 
-- * funções de alta ordem 
-- * avaliação preguiçosa
-- * listas infinitas
fibs = 1:1:(zipWith (+) fibs (tail fibs))

-- imprimindo apenas os primeiros 10 valores da sequencia
main = print $ take 10 fibs