名前付き let に興奮。って、おまえはその昔大学でλ式やったんじゃないの？ 学生のときにもっと勉強しておけばよかったっていう言葉の意味がわかりつつあるのは、きっと大人になったからなんだろう。いや、学生のころも、勉強はした。けど、抽象的な対象ばっかり扱っていたし、何より自分のコンピュータが買えなかったのが悔しい。あと、コンピュータ数学のゼミが体育会系で疎遠だったのも悲しい。

まあ、いいや。とにかく素数は避けられない。

(define prime-list
  (let ((primes '(2)))
    (lambda (upper-int)
      (let next-prime ((test-int 3) (ls primes))
        (if (< test-int upper-int)
            (if (integer? (/ test-int (car (reverse ls))))
                (next-prime (+ test-int 1) primes)
                (if (null? (cdr ls))
                    (begin (set! primes (cons test-int primes))
                           (next-prime (+ test-int 1) primes))
                    (next-prime test-int (reverse (cdr (reverse ls))))))
            primes)))))

(prime-list 91) =>
(89 83 79 73 71 67 61 59 53 47 43 41 37 31 29 23 19 17 13 11 7 5 3 2)

目下の問題

• ifがおおすぎ


• 代入をなんとかしたい。でも、こういう結果(判定ではなくリストを得る)を求める以上は無理かな


• リストの末尾を削るには reverse して car して reverse するしかないの？