{"categories":[],"type":"rich","published":"2009-05-23 18:47:50","title":" \u7d20\u56e0\u6570\u5206\u89e3 \u82f1\u8a9e\u3067\u3044\u3046\u3068\u30d5\u30a1\u30af\u30bf\u30e9\u30a4\u30bc\u30fc\u30b7\u30e7\u30f3","description":"\u307f\u305a\u3074\u30fc\u65e5\u8a18 \u7d20\u56e0\u6570\u5206\u89e3\u304c\u30ca\u30e1\u305f\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u3053\u3068\u3067\u304a\u308c\u306e\u6012\u308a\u304c\u6709\u9802\u5929 Gauche\u3067\u30a8\u30e9\u30c8\u30b9\u30c6\u30cd\u30b9\u306e\u7be9\u3067\u7d20\u6570\u30b9\u30c8\u30ea\u30fc\u30e0(\u4e16\u9593\u4e00\u822c\u306e\u3084\u3064\u3088\u308a\u901f\u3044)\u3067\u7834\u58ca\u529b\u3070\u3064\u725b\uff9d (use util.stream) (define (composites s) (stream-delay (let1 p (stream-car s) (stream-cons (expt p 2) (xor (stream-map (pa$ * p) (xor (stream-cdr s) (composites s))) (composites (stream-cdr s))))))) (define (xor s0 s1) \u2026","author_url":"https://blog.hatena.ne.jp/Gemma/","image_url":null,"version":"1.0","blog_url":"https://gemma.hatenadiary.org/","provider_url":"https://hatena.blog","author_name":"Gemma","blog_title":"Gemma\u306e\u65e5\u8a18","width":"100%","height":"190","provider_name":"Hatena Blog","url":"https://gemma.hatenadiary.org/entry/20090523/1243072070","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgemma.hatenadiary.org%2Fentry%2F20090523%2F1243072070\" title=\" \u7d20\u56e0\u6570\u5206\u89e3 \u82f1\u8a9e\u3067\u3044\u3046\u3068\u30d5\u30a1\u30af\u30bf\u30e9\u30a4\u30bc\u30fc\u30b7\u30e7\u30f3 - Gemma\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}