mtsuyugu https://blog.hatena.ne.jp/mtsuyugu/ mtsuyuguの日記 https://mtsuyugu.hatenadiary.org/ scheme euler Problem 30 - Project Euler各桁の数字を5乗したものの和がもとの数と等しくなる数の合計を求めるという問題です。ループを使わずに fold, map, filter などの高階関数のみで解いてみました。 (list 1 10 100 1000 10000 100000 1000000) で済むところを (map (lambda (x) (expt 10 x)) (list 0 1 2 3 4 5 6)) としてるのはちょっと無駄ですが、見た目のスッキリさをとりました。 (use srfi-1) (define (sum-of-fifth-power n) (apply +… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmtsuyugu.hatenadiary.org%2Fentry%2F20080705%2F1215227594" title="problem 30 - mtsuyuguの日記" 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-07-05 12:13:14 rich https://mtsuyugu.hatenadiary.org/entry/20080705/1215227594 1.0 100%