Scheme Kata の続き。いちおう毎日ちょっとでも続けたいんだけど正直ネタ切れ。なんで初日に4つも作っちゃったんだろう……。
苦し紛れに昨日の多値を使ったバージョンをそのままreceiveを使って書き直す。hanataniさんに教えてもらうまでreceiveもcutも知らなかったから、苦し紛れとはいえ個人的な訓練にはなっているような気がする。Kata だからそれでいいじゃん。

(define (quicksort/values ls)
  (define (low-x-high)
    (values
     (filter (cut > (car ls) <>) (cdr ls))
     (list (car ls))
     (filter (cut <= (car ls) <>) (cdr ls))))
  (if (null? ls)
      '()
      (receive (low x high)
               (low-x-high)
               (append (quicksort/values low)
                       x
                       (quicksort/values high)))))