Bubble sort: differenze tra le versioni

Versione delle 11:29, 3 ago 2005

Versione delle 10:25, 5 ago 2005

Riga 123:

sub bubble_sort(@) {

my @a = @_;

foreach $i (reverse 0..@$#a) {

foreach $j (0..$i-1) {

($a[$j],$a[$j+1]) = ($a[$j+1],$a[$j]) if ($a[$j] > $a[$j+1]);