mzp https://blog.hatena.ne.jp/mzp/ みずぴー日記 https://mzp.hatenadiary.org/ Scheme 30分プログラム 病み上がりなので、楽そうなのを選んだら10分で終わった。まあ、いいか。 今日のネタはクイックソート。 gosh> (qsort '(2 4 1 5 5)) (1 2 4 5 5){friend:hiro}あたりはクイックソートは複雑だと思っているみたいだけれども、再帰とリストを使えばとてもシンプルに書ける。複雑なのは、ループと配列を使ったバージョン。 (use srfi-1) (define (qsort lst) (if (or (null? lst) (= (length lst) 1)) lst (let* ((pivot (car lst)) (lst2 (cdr lst)) (bef… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20070424%2Fqsort" title="qsort.scm - みずぴー日記" 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-04-24 00:00:00 rich https://mzp.hatenadiary.org/entry/20070424/qsort 1.0 100%