Guest User

Untitled

a guest
Oct 20th, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. quick' [] = []
  2. quick' (x:xs) = quick' [y | y <- xs, y < x]
  3. ++ [x]
  4. ++ quick' [y | y <- xs, y >= x]
Add Comment
Please, Sign In to add comment