Advertisement
Guest User

Untitled

a guest
Dec 7th, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. qsort [] = []
  2. qsort(x:xs) = qsort smaller ++ [x] ++ qsort larger
  3. where
  4. smaller = [ a | a <- xs, a <= x]
  5. larger = [ b | b <- xs, b > x]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement