私の周辺で流行っている About - Project Euler。掲載されている数学の問題をひたすら解いていくというものですが どこまでいけるか分かりませんが gauche で挑戦してみました。(3 または 5 の倍数であり) かつ 1000 未満である数の合計を求めるという問題。…

4000000 以下のフィボナッチ数列の一般項で偶数の合計を求める問題。 (define (fib n) (define (fib-iter a b count) (if (= count 0) b (fib-iter (+ a b) a (- count 1)))) (fib-iter 1 0 n)) (define (p2 maxnum) (define (p2-iter n sum) (let ((fibn (f…