Blob
1 (defun cont-frac (n d k)2 (labels (3 (frac (i)4 (/ (funcall n i)5 (+ (funcall d i)6 (if (= i k)7 08 (frac (1+ i)))))))9 (frac 1)))11 (defun cont-frac-iter (n d k)12 (labels (13 (frac-iter (i result)14 (if (= i 0)15 result16 (frac-iter17 (1- i)18 (/ (funcall n i)19 (+ (funcall d i) result))))))20 (frac-iter k 0)))22 (print23 (cont-frac24 (lambda (i) 1.0)25 (lambda (i)26 (let ((i+1 (1+ i)))27 (if (= (rem i+1 3) 0)28 (* 2.0 (/ i+1 3))29 1.0)))30 10))