User talk:Marcelo.parrela
Revision as of 12:19, 14 October 2013 by Marcelo.parrela (talk | contribs) (Quicksort - An other Implementation)
-- 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]