Select Code to Download

    quicksort :: (Ord a) => [a] -> [a]  
    quicksort [] = []  
...
        let smallerSorted = quicksort [a | a <- xs, a <= x]  
            biggerSorted = quicksort [a | a <- xs, a > x]  
        in  smallerSorted ++ [x] ++ biggerSorted

sub multi_thread_sort
{
...
    
    return ( @lowList, $pivot, @highList );
}