LISP 练习：quick sort

今天偶然看到这个帖子：

http://blog.zhaojie.me/2009/08/functinal-list-quick-sort.html

在 Haskell 中 quick sort 居然只要2行代码实现：

qsort [] = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)

 

于是试着用 LISP 写了一下，代码写的比较啰嗦，不过总算是实现了：

(define (filter predicate lst)
  (if (eq? '() lst)
      '()
      (if (predicate (car lst))
          (cons (car lst) (filter predicate (cdr lst)))
          (filter predicate (cdr lst)))))

(define (qsort lst)
  (if (eq? '() lst)
      '()
      (append (qsort (filter (lambda (x) (< x (car lst))) (cdr lst)))
            (list (car lst))
                  (qsort (filter (lambda (x) (> x (car lst))) (cdr lst))))))

测试：

欢迎使用 DrScheme, 版本 4.2.5 [3m].
语言: R5RS [自定义]; memory limit: 128 MB.
> (qsort (list 4 3 2 9 1 33 78 29 100 99))
(1 2 3 4 9 29 33 78 99 100)

一开始实际上自己实现了一个 filter 函数，因为我不知道 LISP 里面自带的 filter 实现是怎样的了。