{"published":"2009-02-27 09:07:22","author_url":"https://blog.hatena.ne.jp/smoking186/","type":"rich","image_url":null,"categories":["Project Euler"],"provider_url":"https://hatena.blog","description":"\u65b9\u91dd\u304c\u9593\u9055\u3063\u3066\u3044\u308b\u306e\u3067\u5f8c\u3067\u76f4\u3055\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u304c, \u3068\u308a\u3042\u3048\u305a\u30cf\u30c3\u30b7\u30e5\u306e\u65b9\u304c\u76f8\u5f53\u901f\u3044\u3053\u3068\u304c\u5206\u304b\u3063\u305f\u306e\u3067\u30e1\u30e2. a2\u306e\u65b9\u304c\u5197\u9577\u306a\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3060\u304c, \u305d\u308c\u3067\u3082a2\u306e\u65b9\u304c\u901f\u3044. n=18\u304f\u3089\u3044\u307e\u3067\u306f\u7c21\u5358\u306b\u3044\u3051\u308b. (use gauche.collection) (define (a1 n) (define (f lis) (if (null? lis) '(1) (append (map (lambda (i) (/ i (+ i 1))) lis) (map (lambda (i) (+ i 1)) lis)))) (define (unique! lis) (map car (group-coll\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2F186.hatenablog.com%2Fentry%2F20090227%2F1235693242\" title=\" Problem 155 - 186 @ hatenablog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","author_name":"smoking186","blog_title":"186 @ hatenablog","blog_url":"https://186.hatenablog.com/","version":"1.0","height":"190","title":" Problem 155","width":"100%","url":"https://186.hatenablog.com/entry/20090227/1235693242"}