Suite de Fibonacci

Inhoudsopgave

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

Nederlandse vertaling

U hebt gevraagd om deze site in het Nederlands te bezoeken. Voor nu wordt alleen de interface vertaald, maar nog niet alle inhoud.

Als je me wilt helpen met vertalingen, is je bijdrage welkom. Het enige dat u hoeft te doen, is u op de site registreren en mij een bericht sturen waarin u wordt gevraagd om u toe te voegen aan de groep vertalers, zodat u de gewenste pagina's kunt vertalen. Een link onderaan elke vertaalde pagina geeft aan dat u de vertaler bent en heeft een link naar uw profiel.

Bij voorbaat dank.

Document heeft de 05/10/2009 gemaakt, de laatste keer de 28/10/2018 gewijzigd
Bron van het afgedrukte document:https://www.gaudry.be/nl/sniplet-rf-tcl/fibonacci.tcl.html

De infobrol is een persoonlijke site waarvan de inhoud uitsluitend mijn verantwoordelijkheid is. De tekst is beschikbaar onder CreativeCommons-licentie (BY-NC-SA). Meer info op de gebruiksvoorwaarden en de auteur.