Difference between revisions of "User:Marcelo.parrela"
Jump to navigation
Jump to search
(Blanked the page) |
|||
| Line 1: | Line 1: | ||
| − | <pre> |
||
| − | -- 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] |
||
| − | |||
| − | </pre> |
||