2006/09/04

急がないと歯医者に間に合わないけど、ひきつづきクイックソート。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 がいない。

0 件のコメント: