'F'->'f' =) Trying to get in the habit to be disciplined with this. It
certainly helps as I write larger and more complex bits of code.


/Lindsay


(de fibonacci (N)
   (let (F (list 2 1 1))
      (cond
         ((= N 0) 0)
         ((= N 1) (caddr F))
         ((= N 2) (cadr F))
         (T
            (do (- N 3)
               (rot F)
               (set F (+ (cadr F) (caddr F))) )
            (car F) ) ) ) )


>

Reply via email to