{"url":"https://boxnos.hatenablog.com/entry/20071022/1193058704","provider_url":"https://hatena.blog","image_url":null,"title":" SICP\u3092\u8aad\u3080(55) \u554f\u984c 2.33 - 2.35 accumulate\u306e\u554f\u984c","author_name":"tanakaBox","height":"190","width":"100%","author_url":"https://blog.hatena.ne.jp/tanakaBox/","provider_name":"Hatena Blog","type":"rich","version":"1.0","blog_url":"https://boxnos.hatenablog.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20071022%2F1193058704\" title=\" SICP\u3092\u8aad\u3080(55) \u554f\u984c 2.33 - 2.35 accumulate\u306e\u554f\u984c - \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>","categories":["Scheme"],"description":"accumulate\u3068\u66f8\u304f\u306e\u304c\u9762\u5012\u306a\u306e\u3067\u3001\u4e92\u63db\u6027\u306e\u3042\u308bsrfi-1\u306efold-right\u3092\u4f7f\u3044\u307e\u3059\u3002\u3064\u3044\u3067\u306bsrfi-26\u3082\u304a\u8a66\u3057\u3067\u3002 \u554f\u984c 2.23 \u7a74\u57cb\u3081\u554f\u984c\u3002\u8efd\u3044\u8efd\u3044\u3002 (define (map p sequence) (fold-right (lambda (a b) (cons (p a) b)) '() sequence)) (map (cut + 10 <>) (iota 10)) ; (10 11 12 13 14 15 16 17 18 19) (define (append seq1 seq2) (fold-right cons seq2 seq1)) (append (l\u2026","published":"2007-10-22 22:11:44","blog_title":"\u30dc\u30af\u30ce\u30b9"}