支点(连分式与流)

(setq   small  37)

(setq  big  99)

 

(defun  calc  (a  b)

(if  (eq  a  1)

       (cons  b nil)

(cons  (/  (-  b  (mod  b  a ) )

            a)

       (calc   (mod  b a )  a ))))

 

(defun  recalc  (lst)

(if  (eq  (cdr lst ) nil)

    (/ 1.0  (car lst))

(/  1.0  

    (+   (car  lst)

         (recalc (cdr lst))))))

 

(defun  generate  (count )

(if  (>  count  0)

     (cons  1   (generate  (- count 1)))

     nil

)

)

 

(/  (* small 1.0)  big)

(recalc (calc  small  big))

 

 

(recalc (generate 4) )

(recalc (generate 14) )

(recalc (generate 24) )

(recalc (generate 34) )

(recalc (generate 44) )

(recalc (generate 54) )

(recalc (generate 64) )