{ Action de tri à bulle par ordre croissant   }
{ des valeurs contenues                       }
{ dans un tableau d'entiers                   }
{ Version optimisée                           }
{ t : Le tableau d'entiers à trier            }
{     par ordre croissant                     }

action triBulleOptimise(-> entier [] t ->)
  entier j
  entier aux
  booleen permutation
  entier np <- longueur(t)-1
  faire
    permutation <- faux
    pour j de 0 à np-1 faire
      si t[j] > t[j+1] alors
        aux <- t[j]
        t[j] <- t[j+1]
        t[j+1] <- aux
        permutation <- vrai
      fsi
    fait
    np <- np-1
  tantque permutation == vrai
fin action