こういうのを書いてなかったので． ;; クイックソート (define (quick-sort lst) (if (null? lst) lst (let ((first (car lst))) (append (quick-sort (filter (lambda (x) (< x first)) (cdr lst))) (list first) (quick-sort (filter (lambda (x) (>= x fi…

何回も忘れてその都度ググったりプログライングGauche見るのでダメですね． ここに書いておきます． (define func-name (with-module gauche func-name))