nと互いに素で、nより小さい正整数の乗算。 まず、互いに素なことを調べるpredicateをつくる。 (define (gcd a b) (if (= b 0) a (gcd b (remainder a b)))) (define (comprime? a b) (= (gcd a b) 1)) これさえできれば、あとは2変数predicateを1変数predic…

filterの考えを取り入れるとaccumulateよりさらに一般的なものが得られるとか突然著者がいいだした。 範囲を指定して、その中の数のうち指定条件に合うものに対して関数を適用するとかなんとか。 とりあえず作る。 (define (filtered-accmulate combiner nul…

**いまの生活リズム 突然ですが、ぼくの今の生活リズムは2時に寝て6時に起きるのが理想です。ホントは3時間睡眠でいきたかったのだけれど、試してみたところ無理だった。だから最近4時間睡眠にしているのですが、これは意外と毎日カイテキに過ごせていて、サ…