先日の納会でソートの話が少し出たのでクイックソートを書いてみました． 書きやすいのでGaucheで． まず普通に書いてみます． (define (quick lst) (if (null? lst) '() (let ((first (car lst))) (append (quick (filter (lambda (x) (< x first)) lst)) (…