sirocco https://blog.hatena.ne.jp/sirocco/ sirocco の書いてもすぐに忘れるメモ https://sirocco.hatenadiary.org/ SBCL Common Lisp Common Lisp でエラトステネスの篩をやってみてハマったところ。 make-list という関数は定義できません。 null? がないので atom を使った。 余りを求める関数は mod 。 ;; x から max までのリストを作って返す。 ;; (mk-list 1 10) ;=> (1 2 3 4 5 6 7 8 9 10) (defun mk-list (x max) (if (= x max) (list max) (cons x (mk-list (+ x 1) max)))) ;; 引数のリスト ls から x で割りきれる要素を削除したリストを返す。 ;; (dele… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsirocco.hatenadiary.org%2Fentry%2F20100820%2F1282253487" title="Common Lisp でエラトステネスの篩 - sirocco の書いてもすぐに忘れるメモ" 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 2010-08-20 06:31:27 rich https://sirocco.hatenadiary.org/entry/20100820/1282253487 1.0 100%