hola... tengo una duda de como hacer un programa que ordene numeros.
tengo que pedir que me ingrese una serie de numeros de un solo dijito no importando que esten repetidos y ordenarlos con QUICKSORT e estado buscando y e encontrado esto en wikipededia
h t t p://es.wikipedia.org/wiki/Quicksort
busque el codigo que le entendiera mas y solo encontre el de java
//Recibe un vector de enteros y el índice del primer y último elemento válido del mismo
void ordenarQuicksort(int[] vector, int primero, int ultimo){
int i=primero, j=ultimo;
int pivote=vector[(primero + ultimo) / 2];
int auxiliar;
do{
while(vector[i]<pivote) i++;
while(vector[j]>pivote) j--;
if (i<=j){
auxiliar=vector[j];
vector[j]=vector[i];
vector[i]=auxiliar;
i++;
j--;
}
} while (i<=j);
if(primero<j) ordenarQuicksort(vector,primero, j);
if(ultimo>i) ordenarQuicksort(vector,i, ultimo);
}
pero no logro pasarlo a perl agradeceria mucho su ayuda