n9d https://blog.hatena.ne.jp/n9d/ 計算機と戯れる日々 https://n9d.hatenadiary.org/ scheme リストから任意のものを抜き出すのはrubyだとselectだからと思って探してみると srfi-1のfilterがそうだった。 >> (define qsort (lambda (x) (if (null? x) () (append (qsort (filter (lambda (y) (< y (car x))) (cdr x))) (list (car x)) (qsort (filter (lambda (y) (>= y (car x))) (cdr x))))))) => qsort >> (qsort '(5 3 2 1 6 4 7 9 3 3)) => (1 2 3 3 3 4… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fn9d.hatenadiary.org%2Fentry%2F20071121%2F1195629701" title="Gaucheでクイックソート - 計算機と戯れる日々" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-11-21 16:21:41 rich https://n9d.hatenadiary.org/entry/20071121/1195629701 1.0 100%