Programación Web y Scripting > Perl

 ordenar numeros

(1/1)

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

http://h t t [url=p://es.wikipedia.org/wiki/Quicksort" onclick="window.open(this.href);return false;]p://es.wikipedia.org/wiki/Quicksort[/url]
 busque el codigo que le entendiera mas y solo encontre el de java


--- Código: 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

iron man:
En ese foro no se hacen tareas  :no:

La idea es que intentes hacer el programa tú solo y preguntes las dudas que tengas. No tiene nada de meritorio buscar los programas ya hechos en Google o pedir que te los hagan :bad:

Navegación

[0] Índice de Mensajes