sicp-ex-2.46



<< Previous exercise (2.45) | Index | Next exercise (2.47) >>


jz

I defined some simple tests to make sure that everything works. Obviously total overkill for the problem at hand, but I wanted to try setting up simple tests in this language like I do for all other languages I use.

  
 ;; Testing: 
 (define (ensure b err-msg) 
   (if (not b) (error err-msg))) 
  
 (define (ensure-all list-of-tests-and-messages) 
   (cond ((null? list-of-tests-and-messages) true) 
         (else 
          (ensure (car list-of-tests-and-messages) 
                  (cadr list-of-tests-and-messages)) 
          (ensure-all (cddr list-of-tests-and-messages))))) 
  
 ;; Tests: 
 (define v2-3 (make-vect 2 3)) 
 (define v5-8 (make-vect 5 8)) 
  
 ;; Simple TDD to ensure everything works.  Yes, pretty keen of me. 
 (ensure-all 
  (list (= (xcor-vect (make-vect 3 4)) 3) "x" 
  (= (ycor-vect (make-vect 3 4)) 4) "y" 
  (eq-vect? (make-vect 7 11) (add-vect v5-8 v2-3)) "add" 
  (eq-vect? (make-vect 3 5) (sub-vect v5-8 v2-3)) "sub" 
  (eq-vect? (make-vect 10 16) (scale-vect 2 v5-8)) "scale" 
  )) 
  
  
 ;; -------------------------- 
  
 (define (make-vect x y) (cons x y)) 
 (define (xcor-vect vec) (car vec)) 
 (define (ycor-vect vec) (cdr vec)) 
  
 (define (eq-vect? v1 v2) 
   (and (= (xcor-vect v1) (xcor-vect v2)) 
        (= (ycor-vect v1) (ycor-vect v2)))) 
  
 (define (add-vect v1 v2) 
   (make-vect (+ (xcor-vect v1) (xcor-vect v2)) 
              (+ (ycor-vect v1) (ycor-vect v2)))) 
 (define (sub-vect v1 v2) 
   (make-vect (- (xcor-vect v1) (xcor-vect v2)) 
              (- (ycor-vect v1) (ycor-vect v2)))) 
 (define (scale-vect s vec) 
   (make-vect (* s (xcor-vect vec)) 
              (* s (ycor-vect vec)))) 
  
  

saving a few lines of code

 (define (f-vect v1 v2 f) 
   (cons (f (xcor-vect v1) 
            (xcor-vect v2)) 
         (f (ycor-vect v1) 
            (ycor-vect v2)))) 
  
 (define (add-vect v1 v2) 
   (f-vect v1 v2 +)) 
  
 (define (sub-vect v1 v2) 
   (f-vect v1 v2 -))