Problem 7 - Project Euler10001 番目の素数を求める問題です。SICP でストリームを勉強してから project euler に戻ってきたときに解いていたのですが、まだ書いていませんでした。 (use util.stream) (define divisible? (lambda (n d) (= (modulo n d) 0)…

Problem 45 - Project Euler三角数: Tn=n(n+1)/2 かつ五角数 Pn=n(3n-1)/2 かつ六角数 Hn=n(2n-1) をみたす数のうち 40755 の次の数は何かという問題です。三角数 Tn について n = 2k-1 を代入すると Tn = n(n+1)/2 = (2k-1)(2k-1+1)/2 = 2k(2k-1) = Hkが成…