Suite de Fibonacci

Description du code

Exemple de récursion en Lisp

Code source ou contenu du fichier

  1. (defun fibonacci (x)
  2. "
  3. Calcule le nombre de fibonacci pour x
  4. "
  5. (if (<= x 2)
  6. 1
  7. (+ (fibonacci (- x 2))(fibonacci (1- x)))))
  8.  
  9. (loop for i from 1 to x do
  10. (print (fibonacci i)))

Autres extraits de codes en Lisp

Document créé le 05/10/2009, dernière modification le 28/10/2018
Source du document imprimé : https://www.gaudry.be/sniplet-rf-lisp/fibonacci-rec.lsp.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.