2008-08-24から1日間の記事一覧
見て気づいたけど、ここんところSICPしかやってない。しかもスピード遅い・・・orz
3.50 (define (stream-map proc . argstreams) (if (stream-null? (car argstreams)) the-empty-stream (cons-stream (apply proc (map stream-car argstreams)) (apply stream-map (cons proc (map stream-cdr argstreams)))))) applyの最後の引数はリスト…