SICP习题解答2.7-2.16

最新推荐文章于 2019-01-27 23:33:52 发布

yaojiank

最新推荐文章于 2019-01-27 23:33:52 发布

阅读量726

点赞数

分类专栏： Scheme 文章标签： racket c

本文链接：https://blog.csdn.net/yaojiank/article/details/7928187

版权

Scheme 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

ex2.7-2.16

#lang racket

; exercise 2.7
(define (make-interval a b) (cons a b))
(define (upper-bound interval) (max (car interval) (cdr interval)))
(define (lower-bound interval) (min (car interval) (cdr interval)))

; exercise 2.8
(define (sub-interval x y)
  (make-interval
   (- (lower-bound x) (upper-bound y))
   (- (upper-bound x) (lower-bound y))))

; exercise 2.10
(define (div-interval x y)
  (if (<= (* (lower-bound y) (upper-bound y)) 0)
      -1
      (mul-interval x
                    (make-interval (/ 1.0 (upper-bound y))
                                   (/ 1.0 (lower-bound y))))))
(define (mul-interval x y)
  (let ((p1 (* (lower-bound x) (lower-bound y)))
        (p2 (* (lower-bound x) (upper-bound y)))
        (p3 (* (upper-bound x) (lower-bound y)))
        (p4 (* (upper-bound x) (upper-bound y))))
    (make-interval (min p1 p2 p3 p4)
                   (max p1 p2 p3 p4))))
 
; exercise 2.12
(define (make-center-percent c p)
  (make-interval (* c (- 1. p))
                 (* c (+ 1. p))))
(define (percent interval)
  (let ((a (upper-bound interval))
        (b (lower-bound interval)))
    (/ (- a b) (+ a b))))
(define (center interval)
  (/ (+ (lower-bound interval) (upper-bound interval)) 2))

; exercise 2.15
;; 正确