2008-04-09から1日間の記事一覧
やる気がでないので、3章を先に始める。 ;;m3.1 (use srfi-1) (define (make-accumulator sum) (lambda (n) (set! sum (+ sum n)) sum)) (define A (make-accumulator 5)) ;;適用する回数によって値が変わる。 (map (lambda (x) (A 10)) (iota 10)) ;; gosh>…
やる気がでないので、3章を先に始める。 ;;m3.1 (use srfi-1) (define (make-accumulator sum) (lambda (n) (set! sum (+ sum n)) sum)) (define A (make-accumulator 5)) ;;適用する回数によって値が変わる。 (map (lambda (x) (A 10)) (iota 10)) ;; gosh>…