ordenar varios numeros

[mariovas]

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

[abcdefghi]

No se si lo que necesitas es replicar la teoría en código u ordenar una lista utilizando es teoría, en el último caso perl dispone de una función llamada sort que aplica dicha teoría.

Código:

use sort '_quicksort';

@array = qw(2 3 6 5 1 7 9 4 0 10 8);
@array = sort {$a <=> $b} @array;
print "@array"; # quedará 0 1 2 3 4 5 6 7 8 9 10

Mas información: http://perldoc.perl.org/functions/sort.html

Como anédota una vez leí que un paparucho al momento de tomar programadores les indicaba que debían ordenar una lista utilizando quicksort, aunque la teoría es muy simple, por supuesto que ninguno pudo realizarla, ya que la ciencia computacional es tan amplia que es imposible saberse todas las teoría con las que se han desarrollado funciones en la mayoría de los lenguaje, lo irrisorio es que se quejaba de como tremendo programadores no iban a saberla, asi que pegale una memorizada, no valla a ser que te toque como jefe.