{"author_name":"tanakaBox","provider_url":"https://hatena.blog","blog_title":"\u30dc\u30af\u30ce\u30b9","height":"190","categories":["Scheme"],"type":"rich","title":" \u7d20\u6570\u306e\u304a\u52c9\u5f37 3 - \u904e\u5270\u6570","provider_name":"Hatena Blog","published":"2008-04-10 05:09:57","image_url":null,"author_url":"https://blog.hatena.ne.jp/tanakaBox/","version":"1.0","blog_url":"https://boxnos.hatenablog.com/","width":"100%","description":"\u904e\u5270\u6570\u3092\u6c42\u3081\u3066\u307f\u308b\u3002\u904e\u5270\u6570\u306f\u3001\u7d04\u6570\u306e\u7dcf\u548c\u304c\u5143\u306e\u6570\u306e2\u500d\u3088\u308a\u5927\u304d\u3044\u6570\u306e\u3053\u3068\u3067\u3042\u308b\u3002 (define (divisor n) (letrec ((iter (lambda (m) (cond ((> m n) '()) ((= (modulo n m) 0) (cons m (iter (+ m 1)))) (else (iter (+ m 1))))))) (iter 1))) (filter (lambda (n) (< (* 2 n) (apply + (divisor n)))) (iota 100 1)) ; (12 18 20 24 30 36 40 42 48 54 56 60 66\u2026","url":"https://boxnos.hatenablog.com/entry/20080410/1207771797","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080410%2F1207771797\" title=\" \u7d20\u6570\u306e\u304a\u52c9\u5f37 3 - \u904e\u5270\u6570 - \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>"}