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 :
- #!/usr/bin/perl
-
- use strict;
-
- my @Tableau = (
- 15, 10, 23, 2, 8, 9, 14, 16
- );
-
- print "Avant:";
- for(my $K = 0; $K < ($#Tableau+1); $K++) {
- print $Tableau[$K].", ";
- }
-
- for(my $I = ($#Tableau + 1) - 2;$I >= 0; $I--) {
- for(my $J = 0; $J <= $I; $J++) {
- if($Tableau[$J + 1] < $Tableau[$J]) {
- my $t = $Tableau[$J + 1];
- $Tableau[$J + 1] = $Tableau[$J];
- $Tableau[$J] = $t;
- }
- }
- }
-
- print "\nAprès:";
- for(my $L = 0; $L < ($#Tableau + 1); $L++) {
- print $Tableau[$L].", ";
- }
- 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
Dernière mise à jour : Jeudi, le 17 janvier 2019