SICP 2.3 习题答案

sen9ob

于 2010-01-11 12:06:34 发布

阅读量117

点赞数

CC 4.0 BY-SA版权

分类专栏： SICP 文章标签： Scheme

本文链接：https://blog.youkuaiyun.com/sen9ob/article/details/83527750

SICP 专栏收录该内容

18 篇文章

订阅专栏

本文通过Scheme语言定义了一系列过程来创建点和矩形，并实现对矩形的几何属性如宽度、高度、周长及面积的计算。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

可能书上想让我用2.2的答案，实在不想那么搞。。。

(define (make-point x y) (cons x y))
(define (x-point p) (car p))
(define (y-point p) (cdr p))

(define (make-rect left-top right-bottom) (cons left-top right-bottom))
(define (bottom-left rect)
  (make-point (x-point (car rect))
              (y-point (cdr rect))))
(define (bottom-right rect) (cdr rect))
(define (top-left rect) (car rect))
(define (top-right rect)
  (make-point (x-point (cdr rect))
              (y-point (car rect))))
(define (width-rect rect)
  (abs (- (x-point (car rect)) (x-point (cdr rect)))))
(define (height-rect rect)
  (abs (- (y-point (car rect)) (y-point (cdr rect)))))
(define (perimeter-rect rect)
  (* 2 (+ (width-rect rect) (height-rect rect))))
(define (area-rect rect)
  (* (width-rect rect) (height-rect rect)))