tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 五角数に関する問題。 Problem 44 - PukiWiki2つの五角数の和と差を取って、五角数になるものを見つける。 五角数チェックは前に書いたのでコピッペで。2つの和と差は五角数キャッシュを持っておいて、キャッシュと比較してく事にする。 (define (problem44) (letrec ((pentagonal? (lambda (n) (integer? (/ (+ (sqrt (+ 1 (* 24 n))) 1) 6)))) (iter (lambda (n acc) (let* ((p (/ (* n (- (* 3 n) 1)) 2)) (res (find (lambd… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080523%2F1211478949" title=" Problem 44 - 五角数 - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-05-23 02:55:49 rich https://boxnos.hatenablog.com/entry/20080523/1211478949 1.0 100%