(x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (> x) xs)
Prelude> qsort [3,5,7,4,6]
*** Exception: <interactive>:24:1-72: Non-exhaustive patterns in function qsort
это два разных определения qsort, а не два случая одного определения
Обсуждают сегодня