Suite de Fibonacci

Table des matières

Description du code

Code source ou contenu du fichier

  1. proc fib {n} {
  2.     if {$n < 2} {
  3.     return 1
  4.     } else {
  5.     return [expr {[fib [expr {$n-2}]] + [fib [expr {$n-1}]]}]
  6.     }
  7. }
  8.  
  9. set N [lindex $argv 0]
  10. if {$N < 1} { set N 1 }
  11. puts [fib $N]

Autres extraits de codes en Tcl

Document créé le 05/10/2009, dernière modification le 28/10/2018
Source du document imprimé : https://www.gaudry.be/sniplet-rf-tcl/fibonacci.tcl.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.