{"width":"100%","description":"\u95a2\u6570 expand \u306e\u89e3\u91c8\u304c\u554f\u308f\u308c\u3066\u3044\u307e\u3059!! (define (expand num den radix) (cons-stream (quotient (* num radix) den) (expand (remainder (* num radix) den) den radix))) \u6700\u521d\u304b\u3089\u3076\u3063\u3061\u3083\u3051\u308b\u3068\uff0c\u3053\u308c\u5272\u308a\u7b97\u3057\u3066\u308b\u3093\u3067\u3059\u3088\u306d\uff0e\u7b46\u7b97\u3092\u601d\u3044\u6d6e\u304b\u3079\u308b\u3068\u3044\u3044\u3068\u304a\u3082\u3046\uff0eradix \u306f\u305d\u306e\u307e\u307e\u57fa\u6570\u3063\u3066\u3053\u3068\u3067\uff0e \u3060\u304b\u3089\uff0c (define S (expand 1 7 10)) (dump-stream S 10) ; 1, 4, 2, 8, 5, 7, 1, 4, 2, 8, done \u4e0a\u2026","url":"https://kiririmode.hatenablog.jp/entry/20080827/p2","provider_url":"https://hatena.blog","author_name":"kiririmode","title":"\u554f\u984c 3-58 (3.5.2  Infinite Streams)","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkiririmode.hatenablog.jp%2Fentry%2F20080827%2Fp2\" title=\"\u554f\u984c 3-58 (3.5.2  Infinite Streams) - \u7406\u7cfb\u5b66\u751f\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>","blog_title":"\u7406\u7cfb\u5b66\u751f\u65e5\u8a18","image_url":null,"blog_url":"https://kiririmode.hatenablog.jp/","provider_name":"Hatena Blog","height":"190","categories":["SICP"],"type":"rich","published":"2008-08-27 00:00:01","version":"1.0","author_url":"https://blog.hatena.ne.jp/kiririmode/"}