Ordenamiento_Burbuja
1234567891011121314151617181920212223242526
use strict;
use warnings;
use 5.010;
my @array = (3,1,6,8);
my $temp;
print "Array antes de ordenar: \n";
print @array, "\n", "\n";
for ( my $i = 1; $i < 4; $i++)
{
for ( my $j = 0; $j < 3; $j++)
{
if($array[$j] < $array[$j + 1])
{
$temp = $array[$j];
$array[$j] = $array[$j + 1];
$array[$j + 1] = $temp;
}
}
}
print "Array después de ordenar:\n";
print @array, "\n";
Perl
INFO