id:maoe:20060201:1138822944ああ、そうか。partitionを使えば良かったんだ。というわけで、partitionを使って書き直すとこうなった。 (define (sort lst cmpfn) (let rec ((lst lst)) (cond ((null? lst) '()) ((null? (cdr lst)) lst) ((null? (cddr lst))…