clojure quick sort

filter 会扫2次
group-by 只扫一次