streamの表示用に (define (stream-ref-list n s) (let loop ((count 0)) (if (= count n) 'done (begin (format #t "~a " (stream-ref s count)) (loop (+ count 1)))))) nとsは逆のほうがいい(じゃあそうしろよ) ;;exercise3.56 (define (merge s1 s2) (co…

遅延すげぇと思った. ;;exercise3.53 (define s (cons-stream 1 (add-streams s s))) ;=> 1,2,4,8,16,.... ;;exercise3.54 (define (mul-streams m1 m2) (stream-map * m1 m2)) (define factorials (cons-stream 1 (mul-streams factorials (integers-starti…

id:rsakamot:20090615:1245075079の表示用を直した. (define (stream-ref-print s n) (let loop ((count 0)) (if (> count n) 'done (begin (print (stream-ref s count)) (loop (+ count 1)))))) ;;exercise3.64 (define (stream-limit stream tolerance) (…