急がないと歯医者に間に合わないけど、ひきつづきクイックソート。partitionかあ。ありがとうございます＞nobsun

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

気が付くと lambda がいない。