いよいよネタ切れか。とりあえず内部でプロシージャを定義するのを止めて、ついでに末尾再帰にだけしておこう。

(define (quicksort/values/cps ls k)
  (if (null? ls)
      (k '())
      (quicksort/values/cps
       (cdr ls)
       (lambda (cdrls)
         (receive (low high)
                  (partition (cut > (car ls) <>) (k cdrls))
                  (append low
                          (cons (car ls) high)))))))

昨日で一気にFPっぷりがあがった気がする。にしてもダサい名前のつけ方だ。