Problem 8 - Project Euler連続する 5 つの数字の積のなかから最大のモノを見つける問題です。 (define digit1000 (map digit->integer (string->list "731671765313306249192...."))) (define (p8 digit1000) (apply max (map * digit1000 (cdr digit1000) …

Problem 3 - Project Euler600851475143 の最大の素因数を求める問題。素数ストリームで地道にループ。 (use util.stream) (define divisible? (lambda (n d) (= (modulo n d) 0))) (define square (lambda (x) (* x x))) (define (integers-starting-from n…

stream の勉強を中断して project euler にもどってみました。Problem 10 - Project Euler200 万以下の素数の和を求める問題。ほとんど SICP からのコピペです。 そもそもは stream の勉強で SICP を読んでたのですが、 結局素数ストリームそのものずばりが…