Hatena::Groupsicp

SICP読書記

 | 

2009-12-14

問題 3.51

問題 3.51 - SICP読書記 を含むブックマーク はてなブックマーク - 問題 3.51 - SICP読書記

(use util.stream)

(define (stream-enumerate-interval start end)
  (stream-iota (- end start) start))

(define (display-line str)
  (begin
    (display str)
    (display "\n")))

(define x (stream-map display-line (stream-enumerate-interval 0 10)))

(define main
  (begin
    (display "(stream-ref x 5)")
    (stream-ref x 5)
    (display "(stream-ref x 7)")
    (stream-ref x 7)))

> gosh p192-3.51.scm

(stream-ref x 5)0

1

2

3

4

5

(stream-ref x 7)6

7

あれ?

1回目のstream-refで5番目までのリストが消費されて、2回目でその次の7番目までが消費されるから

こんな感じになると想像してた

0

1

2

3

4

5

6

7

8

9

10

(ストリーム使い切った)

TrishaTrisha2011/04/10 18:192YOG4g Great thinking! That really breaks the mold!

idmooddwagbidmooddwagb2011/04/12 04:42kPLDem <a href="http://jnxznjbewwui.com/">jnxznjbewwui</a>

eizyabbreizyabbr2011/04/13 07:056iMrjp , [url=http://wvvbuylirhkh.com/]wvvbuylirhkh[/url], [link=http://aebieveibhev.com/]aebieveibhev[/link], http://mtrjxksgirct.com/

 |