【SICP练习】75 练习2.46

标签：sicp

练习2.46

这道题就是彻头彻尾的”构造”了。直接上代码吧。

(define (make-vect xcor ycor) (listxcor ycor))

(define (xcor-vect v) (car v))

(define (ycor-vect v) (cdr v))

(define (add-vect first-vectsecond-vect)

  (make-vect (+ (xcor-vect first-vect)

                 (xcor-vect second-vect))

              (+ (ycor-vect first-vect)

               (ycor-vect second-vect))))

(define (sub-vect first-vectsecond-vect)

  (make-vect (- (xcor-vect first-vect)

                 (xcor-vect second-vect))

              (- (ycor-vect first-vect)

               (ycor-vect second-vect))))

(define (scale-vect vect factor)

  (make-vect (* (xcor-vect vect) factor)

               (* (ycor-vect vect) factor)))

【SICP练习】75 练习2.46

标签：sicp

原文地址：http://blog.csdn.net/nomasp/article/details/43907447