2006/09/05

いよいよネタ切れか。とりあえず内部でプロシージャを定義するのを止めて、ついでに末尾再帰にだけしておこう。
(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っぷりがあがった気がする。にしてもダサい名前のつけ方だ。

0 件のコメント: