2008-06-20から1日間の記事一覧
面倒なのでstream-*が@*になってます。 stream-map -> @map stream->list -> @>list (use my-stream) ;; m3.60 ;;a0, a1, a2,... ;; (define (mul-series s1 s2) (@cons (* (@car s1) (@car s2)) (@add (mul-series s1 (@cdr s2)) (@scale (@cdr s1) (@car s…
面倒なのでstream-*が@*になってます。 stream-map -> @map stream->list -> @>list (use my-stream) ;; m3.60 ;;a0, a1, a2,... ;; (define (mul-series s1 s2) (@cons (* (@car s1) (@car s2)) (@add (mul-series s1 (@cdr s2)) (@scale (@cdr s1) (@car s…