Foro - Perl en Español

Las únicas condiciones de parada de los bucles deben ser la que marcan sus contadores, que recorren los elementos de la lista. No hay más condiciones que comprobar si el contador ha llegado al último elemento de la lista. No hay que poner otra condición, salvo que uses la variante del centinela.

Enséñanos cómo va tu código...

No he avanzado respecto al último código que puse pues estuve haciendo el ejercicio del tema de bioinformática. Bueno, sí que he hecho un cambio: He borrado el penúltimo print() pues no sirve para nada.

print "Introduzca la cantidad de números a ordenar: ";
$a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
print "Introduzca un número mayor de 0:";
$a = <STDIN>;
chomp($a);
}
if ( $a > 0 ) {
$n = 0;
while ( $n < $a ) {
print "Introduzca los números: ";
$b = <STDIN>;
chomp($b);
push @numeros, $b;
$n++;
}
}
$c = 0;
$d = $c + 1;
while ( $c < $a ) {
while ( $numeros[$c] > $numeros[$d] ) {
$temp = $numeros[$c];
$numeros[$c] = $numeros[$d];
$numeros[$d] = $temp;
}
$c++;
}
print "Los números ordenados son: @numeros\n";

Estoy muy atascado y no sé cómo seguir :S

Veo el error del segundo bucle como me indicaste pero no la solución ¡je,je!

Tan sencillo como copiar y adaptar el código que aparece en la página de la Wikipedia...

He intentado adaptarlo y tengo esto:

print "Introduzca la cantidad de números a ordenar: ";
$a = <STDIN>;
chomp ($a);
while ($a<=0) {print "Introduzca un número mayor de 0:";
$a = <STDIN>;
chomp ($a);
}
if ($a>0) {
$n = 0;
while ($n<$a) {print "Introduzca los números: ";
$b = <STDIN>;
chomp ($b);
push @numeros, $b;
$n ++; }
}
$c = 1;
$d = 0;
while ($c<$a) {
while ($d<($a-$c)) {
if ($numeros[$d]>$numeros[$d+1]) {
$temp=$numeros[$d];
$numeros[$d]=$numeros[$d+1];
$numeros[$d+1]=$temp;}
$d++;}}
print "Los números ordenados son: @numeros\n";

Lo extraño es que así al ejecutarlo no me devuelve los números, el programa no me muestra nada, pero si, por ejemplo, pongo uno de los últimos dos corchetes detrás del print() me devuelve los números ordenados infinitas veces. Es normal pues está dentro del bucle pero el caso es que están ordenados, aunque si no coloco el corchete ahí no me devuelve nada. Creo que casi lo tengo pero sigue fallando algo.

He hecho una pequeña corrección que mejora el programa pero ahora me doy cuenta de que me ordena a medias. El programa es este:



El fallo es que al intercambiar dos números, sigue donde lo dejo y no vuelve a empezar. ¿Qué tengo que cambiar o añadir para que lo haga?

Tienes que meter

$d = 0;

dentro del primer bucle, no fuera.

¡¡¡Infinitas gracias!!! ¡¡¡Por fin!!! Tema resuelto. ¡ja,ja! Pero volveré, seguro...