Sigue una implementación del algoritmo quicksort, sacada del diccionario de funciones de J: