(defun fibs (n)(if (eq n 1) 2 (if (eq n 2) 3 (- (* 6 (fibs (- n 1) ) ) (* 8 (fibs (- n 2) ) )))))GOX*X-6*X+8=0GOX=2,X=4GOA*2^n+B*4^nGO2*A+4*B=24*A+16*B=3GOA=5/4B=-1/8
(defun pow (num count)(if (> count 0) (* num (pow num (- count 1) ) ) 1))
(setq A (/ 5 4.0) )(setq B (- 0 (/ 1 8.0)))
(defun formula (n)(+ (* A (pow 2 n)) (* B (pow 4 n))))
(defun test (n)(if (> n 0) (progn (print (formula n)) (print (fibs n)) (test (- n 1) )) (print 'over)))
(test 10)
