Здравствуйте, BulatZiganshin, Вы писали:
BZ>Здравствуйте, landerhigh, Вы писали:
L>>Потому что когда на телефонном (!) интервью просят написать (!) на бумажке (!) квиксорт — это очень, очень плохой признак. Работать там, где только и делают, что пишут квик-сорты на бумажке, не интересно.
BZ>qs (x:xs) = qs [t | t <- xs, t<x]
BZ> ++ [x]
BZ> ++ qs [t | t <- xs, t>=x]
BZ>qs [] = []
qsort x = qsort' x []
qsort' [] y = y
qsort' [x] y = x:y
qsort' (x:xs) y = part xs [] [x] []
where
part [] l e g = qsort' l (e ++ (qsort' g y))
part (z:zs) l e g
| z > x = part zs l e (z:g)
| z < x = part zs (z:l) e g
| otherwise = part zs l (z:e) g
Так быстрее, ага?
