2007-09-29から1日間の記事一覧
gaucheにnilがない。( '() で代用) ;;m2.12 (define (make-center-width c w) (make-interval (- c w) (+ c w))) (define (center i) (/ (+ (lower-bound i) (upper-bound i)) 2)) (define (width i) (/ (- (upper-bound i) (lower-bound i)) 2)) ;;昨日作っ…