{"height":"190","version":"1.0","width":"100%","type":"rich","author_name":"tanakaBox","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080401%2F1207009764\" title=\" Problem 3 - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["Scheme"],"url":"https://boxnos.hatenablog.com/entry/20080401/1207009764","title":" Problem 3","published":"2008-04-01 09:29:24","image_url":null,"author_url":"https://blog.hatena.ne.jp/tanakaBox/","blog_title":"\u30dc\u30af\u30ce\u30b9","blog_url":"https://boxnos.hatenablog.com/","description":"\u3082\u3046\u4e00\u554f\u304c\u3093\u3070\u308b\u3002Problem 3 - PukiWiki 13195 \u306e\u7d20\u56e0\u6570\u306f 5\u30017\u300113\u300129 \u3067\u3042\u308b\u3002600851475143 \u306e\u7d20\u56e0\u6570\u306e\u3046\u3061\u6700\u5927\u306e\u3082\u306e\u3092\u6c42\u3081\u3088\u3002 \u7d20\u56e0\u6570\u5206\u89e3\u304b!! \u4f55\u3082\u8003\u3048\u305a\u306b\u3002\u305f\u3060\u3072\u305f\u3059\u3089\u3002 (define (problem3 n) (define (iter m x l) (cond ((zero? (modulo m x)) (iter (/ m x) x (cons x l))) ((or (= m 1) (> x (sqrt n))) l) (else (iter m (+ x 1) l)))) (iter n 2 '())) (problem3 6) (\u2026"}