{"height":"190","description":"\u304b\u306a\u308a\u91cd\u304b\u3063\u305f\u3002 Problem 72 - PukiWiki1/d\u3068\u3057\u3066\u3001d \u30aa\u30a4\u30e9\u30fc\u306e\u95a2\u6570\u3067\u7c21\u5358\u306b\u3002\u3068\u601d\u3063\u305f\u3051\u3069\u3001100\u4e07\u307e\u3067\u306e\u5168\u3066\u306e\u6570\u306b\u3064\u3044\u3066\u7d20\u56e0\u6570\u5206\u89e3\u3057\u305f\u306e\u3068\u5909\u308f\u3089\u306a\u3044\u8a33\u3002 100\u4e07 * \u221a100\u4e07 = 10\u5104\u3002 \u591a\u304f\u898b\u7a4d\u3082\u3063\u306610\u5104\u56de\u3002\u5c11\u306a\u304f\u898b\u7a4d\u3082\u3063\u3066\u30821\u5104\u56de\u304f\u3089\u3044\u3002\u6642\u9593\u8a08\u308a\u5fd8\u308c\u305f\u3051\u3069\u3001\u304b\u306a\u308a\u304b\u304b\u308b\u3002 \u3082\u3063\u3068\u3046\u307e\u3044\u3084\u308a\u65b9\u304c\u3042\u308a\u305d\u3046\u3002 (define (phi n) (letrec ((iter (lambda (t p) (cond ((= t 1) n) ((> p (sqrt n)) (* n (- 1 (/ 1 t)))) (else (if (zero? (modulo t p\u2026","image_url":null,"type":"rich","author_name":"tanakaBox","published":"2008-05-24 03:54:48","blog_url":"https://boxnos.hatenablog.com/","provider_url":"https://hatena.blog","categories":["Scheme"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080524%2F1211568888\" title=\" Problem 72 - \u65e2\u7d04\u5206\u6570\u306e\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>","author_url":"https://blog.hatena.ne.jp/tanakaBox/","version":"1.0","title":" Problem 72 - \u65e2\u7d04\u5206\u6570\u306e\u6570","width":"100%","url":"https://boxnos.hatenablog.com/entry/20080524/1211568888","provider_name":"Hatena Blog","blog_title":"\u30dc\u30af\u30ce\u30b9"}