User talk:Marcelo.parrela

-- by Marcelo Parrela (marcelo.parrela@gmail.com) quicksort' [] = [] quicksort' (a:as) = quicksort' l1 ++ a : quicksort' l2

   where
       (l1,l2) = separate as a [] []

       separate [] _ a b = (a,b)
       separate (l:ls) a l1 l2
           | l <= a    = separate ls a l1' l2
           | otherwise = separate ls a l1 l2'
           where
               l1' = l1++[l]
               l2' = l2++[l]