日々の破片

_ 教えてelisp

素数求めるベンチマークを見ていて、Lispで書いたらどうなるか試そうと思った。手元ですぐ使えるのはelispなので、次のように書いてみた。

(defun primep (n primes)
  (let ((sq (sqrt n)))
    (cond ((null primes)
           t)
          ((< sq (car primes))
           t)
          ((= (mod n (car primes)) 0)
           nil)
          (t (primep n (cdr primes))))))
 
(defun primes (max)
  (let ((p '(2))
        (n 3))
    (while (< n max)
      (cond ((primep n p)
             (nconc p (list n))))
      (setq n (+ n 1)))
    (print p)))
 
 (benchmark-run 1 (primes 100))

だが、何かおかしい。

(primes 10)
 
(2 3 5 7)
(2 3 5 7) ; replのp
 
(primes 10)
 
(2 3 5 7 3 5 7)
(2 3 5 7 3 5 7) ; replのp

なんで？

追記：答: '(2)を書き換えているから

ううむ、「よくある落し穴は、nconcの最後以外の引数に、クォートした定数リストを使うことである。」というのはわかっていたつもりだったが、呼び出しの都度、(2)が新たに作られると考えたのが大間違い。関数内に出現するクォートした定数リストは定数として（再作成したりせずに）扱われるということみたいだ。

_ 青は藍より出でて

システム化を提案する立場の人が、自分自身の業務がシステム化、自動化されていないようでは、紺屋の白袴にもほどがあるんじゃないでしょうか。

『ずっと受けたかったソフトウェアエンジニアリングの新人研修』続き

おれもそう思う。

なんでだろう？

実証実験にはえらく金（スポンサー）と人手がかかるというのが一つの原因かなぁとか考えてみるのだが、スポンサーには困らないはずなんだよな、というか国（それが可能なスポンサーだろう？）は発注者として、そこまで踏み込んでみたらどうだろうか（でも、失敗した場合の追及され度が現行踏襲よりでかい、失敗を許さないシステムというシステムがあるためにそれが難しいのならば、まずそこからリストラクチャしなければならないのかも、とかも思う）。