|
|
От: |
ettcat
|
|
| Дата: | 18.01.08 11:36 | ||
| Оценка: | |||
> quickSort :: Ord a => a -> a
> quickSort [] = []
> quickSort (x:xs) = quickSort [y | y <- xs, y < x] ++ [x] ++ quickSort [y | y <- xs, y >= x]
>qsort [] = []
qsort (x:xs) = qsort l ++ x:qsort r where (l,r) = partition(<x) xs
|
От: | Vampiro | |
| Дата: | 18.01.08 12:08 | ||
| Оценка: | |||
