{"blog_title":"sirocco \u306e\u66f8\u3044\u3066\u3082\u3059\u3050\u306b\u5fd8\u308c\u308b\u30e1\u30e2","title":" map \u3092\u81ea\u5206\u3067\u5b9a\u7fa9","version":"1.0","author_url":"https://blog.hatena.ne.jp/sirocco/","url":"https://sirocco.hatenadiary.org/entry/20090411/1239431837","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsirocco.hatenadiary.org%2Fentry%2F20090411%2F1239431837\" title=\" map \u3092\u81ea\u5206\u3067\u5b9a\u7fa9 - sirocco \u306e\u66f8\u3044\u3066\u3082\u3059\u3050\u306b\u5fd8\u308c\u308b\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"sirocco","categories":["scheme"],"image_url":null,"provider_name":"Hatena Blog","width":"100%","type":"rich","blog_url":"https://sirocco.hatenadiary.org/","height":"190","provider_url":"https://hatena.blog","published":"2009-04-11 15:37:17","description":"\u3082\u3046\u3072\u3068\u3064\u306e Scheme \u5165\u9580 8. \u9ad8\u968e\u95a2\u6570 \u7df4\u7fd2\u554f\u984c 6 2. map \u3092\u81ea\u5206\u3067\u5b9a\u7fa9\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u3053\u306e\u554f\u984c\u306f\u4ee5\u524d\u3067\u304d\u306a\u304b\u3063\u305f\u3093\u3060\u3051\u308c\u3069\u3082\u3001\u601d\u3044\u51fa\u3057\u3066\u3084\u3063\u3066\u307f\u308b\u3068\u3001\u3059\u3054\u304f\u30c0\u30b5\u30a4\u3051\u308c\u3069\u305d\u308c\u306a\u308a\u306b\u52d5\u304f\u306e\u304c\u51fa\u6765\u305f\u3002 (use srfi-1) (define (mymap f . ls) (if (null? ls) (print \"error:wrong number of arguments\") (if (= (length ls) 1) (s-map f (car ls)) ; \u5f15\u6570\u306e\u30ea\u30b9\u30c8\u304c\uff11\u306e\u3068\u304d (m-map f 0 ls)))) ; \u5f15\u6570\u306e\u30ea\u30b9\u30c8\u304c\uff11\u4ee5\u4e0a\u306e\u3068\u304d ;; \u5f15\u6570\u306e\u30ea\u30b9\u30c8\u2026"}