{"url":"https://boxnos.hatenablog.com/entry/20080408/1207602464","description":"unfold\u306f\u4fbf\u5229\u306a\u3093\u3060\u3051\u3069\u3001cons\u90aa\u9b54\u6749\u306a\u306e\u3067\u65b0\u95a2\u6570un\u3092\u8003\u3048\u3066\u307f\u305f\u3002 (define (un p tail f seed) (if (p seed) (tail seed) (f seed (lambda (x) (un p tail f x))))) f\u306f2\u500b\u306e\u5f15\u6570\u3001seed\u3068\u624b\u7d9a\u304d\u3092\u53d6\u308b\u3088\u3046\u306b\u3059\u308b\u3002 \u30ea\u30b9\u30c8\u306e\u30b3\u30d4\u30fc\u3002 (un null? values (lambda (x g) (cons (car x) (g (cdr x)))) (iota 10)) ; (0 1 2 3 4 5 6 7 8 9) 0\u304b\u308910\u307e\u3067\u8db3\u3059\u3002 (un zero? values (lambda (x g)\u2026","blog_title":"\u30dc\u30af\u30ce\u30b9","height":"190","author_url":"https://blog.hatena.ne.jp/tanakaBox/","version":"1.0","categories":["Scheme"],"image_url":null,"provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080408%2F1207602464\" title=\" \u65b0\u95a2\u6570\u3092\u8003\u3048\u3066\u307f\u305f - \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>","blog_url":"https://boxnos.hatenablog.com/","width":"100%","author_name":"tanakaBox","title":" \u65b0\u95a2\u6570\u3092\u8003\u3048\u3066\u307f\u305f","provider_name":"Hatena Blog","published":"2008-04-08 06:07:44","type":"rich"}