Home

Archivos

Buscar

Categorías

Feeds:

RSS / Atom

HTDP Capitulo 4· 18. December 2007, 23:49

;; 4.2.1.1
;; inside(3-7] : number->boolean
(define (inside3-7i value)
  (and (> value 3) (<= value 7)))
;; 4.2.1.2
;; inside[3-7] : number->boolean
(define (inside3i-7i value)
  (and (>= value 3) (<= value 7)))
;; 4.2.1.3
;; inside[3-9) : number->boolean
(define (inside3i-9 value)
  (and (>= value 3) (< value 9)))
;; 4.2.1.4
;; inside(1-3)(9-11) : number->boolean
(define (inside1-39-11 value)
  (or (and (> value 1) (< value 3))
      (and (> value 9) (< value 11))))
;; 4.2.1.5
;; outside[1-3] : number->boolean
(define (outside1-3 value)
  (or (< value 1) (> value 3)))
;;4.2.3
;;equation1 : number->boolean
(define (equation1 x)
  (= 0 (+ 1 (+ (* x 2) (sqr x)))))
(define (equation2 x)
  (= 62 (+ 2 (* 4 x))))
(define (equation3 x)
  (= 102 (* 2 (sqr x))))
(define (equation4 x)
  (= 462 (+ 2 (+ (* 6 x) (* 4 (sqr x))))))