NCNU LISP HW5

omputing the continued fractions

• Refer to exercise 1.37.
• Both versions of linear recusive and linear iterative are required.

/////////////////////////////////////////////////////////////////////////////////

(define (cont-frac-iterative N D K)

(do-cont-frac-iterative N D K 0)

)

(define (do-cont-frac-iterative N D K result)

(if (= k 0) result

           (do-cont-frac-iterative N D (- k 1) (/ (N K) (+ (D K) result) ))

)

)

(define (cont-frac-recursive N D K)

(do-cont-frac-recursive N D K 1)

)

(define (do-cont-frac-recursive N D K counter)

(if (= k 1) (/ (N counter) (D counter))

   (/ (N counter) (+ (D counter) (do-cont-frac-recursive N D (- k 1) (+ counter 1))))    

)

)