Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Mathématique - Fibonacci Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Vous vous souvenez de la célèbre suite de nombre du mathématicien italien Leonardo Pisano (1170 à 1250) pour calculer à l'origine la croissance de la population de lapin. Selon le spirale suivant:

Voici un programme permettant de calculer le Fibonacci de nombre entier en Perl :

  1. #!/usr/bin/perl
  2.  
  3. sub Fibonacci() {
  4.  my($n) = @_;
  5.  my($w);
  6.  if($n <= 0) {
  7.   return 0;
  8.  }
  9.  if($n == 1) {
  10.   return 1;
  11.  }
  12.  my($u) = 0;
  13.  my($v) = 1;
  14.  my($i);
  15.  for($i = 2; $i <= $n; $i++) {
  16.   $w = $u + $v;
  17.   $u = $v;
  18.   $v = $w;
  19.  }
  20.  return $v;
  21. }
  22.  
  23. for($I = 0; $I <= 10; $I++) {
  24.     print "Fibonacci(" . $I . ")=" . &Fibonacci($I) . "\n";
  25. }

on obtiendra le résultat suivant :

Fibonacci(0)=0
Fibonacci(1)=1
Fibonacci(2)=1
Fibonacci(3)=2
Fibonacci(4)=3
Fibonacci(5)=5
Fibonacci(6)=8
Fibonacci(7)=13
Fibonacci(8)=21
Fibonacci(9)=34
Fibonacci(10)=55


Voir également

Science - Mathématique

Dernière mise à jour: Mardi, le 3 janvier 2012