Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Tri & Théorie des ordres - Tri à bulles Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

La tri à bulle, mieux connu sous le nom de «Bubble Sort» est habituellement utilisé à des fins d'apprentissage. L'idée derrière cette technique est très simple, parcourir le tableau et permuter deux éléments lorsque cela s'avère nécessaire. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Perl suivant :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my @Tableau = (
  6.  15, 10, 23, 2, 8, 9, 14, 16
  7. );
  8.  
  9. print "Avant:";
  10. for(my $K = 0; $K < ($#Tableau+1); $K++) {
  11.  print $Tableau[$K].", ";
  12. }
  13.  
  14. for(my $I = ($#Tableau + 1) - 2;$I >= 0; $I--) {
  15.  for(my $J = 0; $J <= $I; $J++) {
  16.   if($Tableau[$J + 1] < $Tableau[$J]) {
  17.    my $t = $Tableau[$J + 1];
  18.    $Tableau[$J + 1] = $Tableau[$J];
  19.    $Tableau[$J] = $t;
  20.   }
  21.  }
  22. }
  23.  
  24. print "\nAprès:";
  25. for(my $L = 0; $L < ($#Tableau + 1); $L++) {
  26.   print $Tableau[$L].", ";
  27. }
  28. print "\n";

on obtiendra le résultat suivant :

Avant:15, 10, 23, 2, 8, 9, 14, 16,
Après:2, 8, 9, 10, 14, 15, 16, 23,


Voir également

Algorithme - Tri

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